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Après quelques absen- 
ces, voici la réappari- 
tion quasi-divine de la 
rubrique du 
téléchargement. Il est 
en effet nécessaire de 
faire le point concer- 
nant les programmes à 
télécharger. 


out d'abord, les problèmes qui 

nous ont été signalés seront ra- 

pidement corrigés. Ainsi, quel- 
ques programmes annoncés dans 
un numéro antérieur ne sont pas 
apparus sur le serveur | (Basic + par 
exemple). 


D'autre part, je rappelle que les fi- 
chiers BZS et tous ceux comprenant 
un «Z» dans le nom d'extension sont 
compactés et ne peuvent donc pas 
être exécutés directement. Il faut 
utiliser le programme CRUNCH 
20.COM se trouvant dans la rubrique 
Utilitaire. Pour plus de détails, voir le 
numéro 36 de CPC Infos. Il ÿ aura 
sans doute également une page 
explicative dans le menu du serveur. 


Les nouveaux programmes corres- 
pondent aux numéros 35, 36, 37 et 
38 de CPC infos. Voici donc dans 
un ordre totalement aléatoire les 
merveilles que vous pourrez vous 
procurer. 


Format+ autorise des formatages un 
peu différents de ce que vous pro- 
pose l'Amsdos. Ce programme est 
à utiliser avec le suivant. 


Mapformat est Un programme per- 
mettant de définir différents formats 
pour vos disques, dont des formats 
spéciaux. 


Le partenaire privilégié du pro- 
gramme précédent est Transfil. Ce 
programme a posé de nombreux 
problèmes car il n’était pas com- 
patible avec les 6128. Heureuse- 
ment, la version 2.0, publié dans ce 
numéro, sera disponible sur le ser- 
veur. Transfil permet un transfert aisé 
des fichiers provenant de formats 
divers. en fait ces trois programmes 
constituent une solution complète 
de gestion des formats exotiques. Si 
le temps le permet, il Y aura en pri- 
me, les fichiers sources et les articles 
correspondants. 


Loto sportif sera utilisé par les joueurs 
invétérés afin de produire les grilles 
du célèbre jeu. Avec un peu de 
chance vous pourrez peut-être 
même toucher le pactole. 


OGTI est un ensemble de petites 
routines, destinées à travailler des 
images dans tous les modes du 
CPC. Vous pourrez effacer les points 
parasites des images numérisées, 
réduire la taille des écrans ou 
changer les couleurs. 


Chéops n'est pas un Utilitaire à pro- 
prement parler mais vous serez cer- 
tainement intéressé par la transfor- 
mation de votre prénom en hiéro- 
glyphes égyptiens. 


Pour ne pas quitter les écritures exo- 
tiques, Ecriture Arabe, transforme 
votre CPC en machine à écrire 
arabe. Caractères redéfinis et har- 
dcopy d'écran sont au programme. 


Explorer vous livrera des «cartes» 
détaillées de vos programmes 
Basic : emplacement des GOTO, 
des GOSUB, des RSX et de certains 
mot-clés. 


Les jeux sont les plus nombreux : Troll, 
Swaplax, Ghostbusters Ill, Flyball, 
Space Ship Spy, 3 Oeufs, Jeu des 
petits chevaux, Actref. || y en a pour 
tous les goûts : action, réflexion, jeu 


de société. 


Pour la bonne bouche, voici Xy- 
phoes Fantasy ou plutôt le second 
niveau de ce jeu vendu par Silma- 
rils. Vous pourrez ainsi essayer, 
écouter et vous faire une opinion. Il 
est plus que probable que cette 
version «démo» soit compactée 
avec CRUNCH20. 


Une autre version démo d'un logji- 
ciel sera placée sur le télécharge- 
ment, Il s'agit de Sillytape. Vous ne 
le trouverez pas dans le commerce 
mais vous pourrez vous le procurer 
(moyennant finances) à l'adresse 
indiquée dans la notice. Sillytape 
permet entre autres d'échantillon- 
ner du son, de le traiter (écho, bour- 
cles, variation de volume) tout cela 
à partir d'un tableau de bord très 
complet. 

Un exemple de musique est fourni 
avec le logiciel. Là aussi, vous de- 
vrez avoir recours à CRUNCH20 pour 
décompacter les fichiers. 


Olivier SAOLETTI 



















DATALOAD 








Jean-Marc VINCENT 


Valable pour CPC 464 - 6128 


Voici un petit programme qui va faciliter la vie de beaucoup 
de lecteurs. En effet, nombre de programmes publiés dans 
nos pages sont très intéressants mais leur utilisation 
nécessite des heures de travail ininterrompus devant votre 
CPC pour saisir les dizaines de pages de DATAs. 


charger les lignes de DATAs dans un fichier AS- 

Cll et de s'arrêter à tout moment. Ainsi le fichier 
de DATAs original pourra être reconstitué en utilisant 
les commandes LOAD pour le premier fichier, MERGE 
pour les suivants et enfin SAVE pour le sauvegarder. 


Ce e programme vous permet maintenant de 


FONCTIONNEMENT 
DU PROGRAMME 


- Le programme demande sur quel support (cassette 
ou disquette) doit se trouver le fichier. 

— S'il s'agit de la cassette, le programme demande s'il 
est besoin d'initialiser les commandes cassette (TAPE : 
dans le cas d'un 464 avec DDI-1 ou 6128 avec casset- 
te). 

- S'il s'agit de la disquette, le programme affiche la 
liste de tous les fichiers de type ASCII (*.asc). 

- Le programme demande ensuite le nom du fichier 
en sortie. 

- Ensuite on demande le numéro de ligne de départ 
et l'incrément pour les lignes suivantes. 

— Puis le nombre de DATAs par ligne. 

- Ensuite si le signe *&” est utilisé ou non. 

- Le programme demande alors la longueur de la 
chaîne somme. Si RETURN pas de somme en fin de 
ligne sinon le programme propose le choix de la for- 
mule de calcul pour cette somme. (Il est d'ailleurs 
possible d'en ajouter facilement de nouvelles. c.f ligne 
2350 à 2470). 

— Et si cette somme doit être réinitialisée à chaque 
ligne. 


— On peut alors entrer les DATAs. || faut taper RETURN 
après chaque DATA. La touche DEL peut être utilisée 
en cas d'erreur. 

- À la fin de la ligne, si besoin est, on entre la somme 
de contrôle (le programme l'ayant calculé lui-même 
tout au long de la ligne). Ici aussi on peut utiliser la 
touche DEL. 

- Si il y a erreur sur la somme le programme propose 
de recommencer en effaçant la ligne ou de corriger 
en passant sur chaque DATA ainsi que sur la somme. 

- Si la somme est correcte le programme propose de 
continuer où de terminer. 


1998 >XD 
1919 * HHRHHEEHNEMNHEHNENNEEEN )XE 
1928" # # XF 
1939 * # Chargement de DATAs # »XG 
1949 ' # CPC 464/664/6128 À >XH 
1959" #  +--------------- +4 XJ 
1968 * # à Version 1.8.9 ü # >XK 
1979" H  +--------------- +4 YA 
1988 ? 4 h )tB 
1999 ? HHÉAHHEEHHENEHENNNERERNE »YC 
1198 ? XE 
1119 * (c) J-M. VINCENT Fevrier 199ÿ XF 
1688 ' >YH 


1699 KEY DEF 66,9,9,9,9:POKE &BDEE,&C9 ? Annule BREAK k DU 
CTRL+SHIFT+ESC 

1795 MODE 2:0N BREAK GOSUB 3189:0N ERROR GOTO 3238 )TA 
1719 >YB 
1728 ‘ Initialisation des variables pour le chargement )YC 








des DATAS 
1788 ? --------- "nn mn »YD 
1749 )YE 


1759 WINDOW #1,1,89,1,24:CLS #1:WINDOW #2,1,88,25,25:CL DBL 
S #2 

1768 PRINT #1,CHR$(24) ;SPACES$(14); "Utilitaire de charge )CT 
ment de datas dans un programne.";SPACE$(14) ;CHR$ (24) ; 

1778 PRINT #2, "Cassette ou Disquette (C/D) ? ";CHR$(24) 3LF 
3" "sCHRS (24) ;CHR$(B); 

1788 inpval$="":WHILE inpval$="":inpval$=UPPERS(INKEY$) DUE 
:WEND:CLS #2 

1798 IF inpval$="C" THEN support$="cassette":GDTO 1829 )CC 
1899 IF inpval$<>"D" THEN PRINT CHR$(7);:G0TO 1778 >TU 
1818 support$="disquette" )2Y 
1829 CLS #2:PRINT #2," Appuyer sur n'importe quelle touc >WM 
he lorsque vous aurez inserer une ";support$; 

1838 inpval$="":WHILE inpval$="":inpval$=UPPERS(INKEY$) DUA 
“tMEND:CLS #2 

1848 IF support$="disquette" THEN üDIR, "*.asc":G0TO 189 >GN 
ÿ 

1858 CLS #2:PRINT #2, "Avez-vous besoin d'initialiser le >WK 
s commandes cassette (ÜTAPE) (O/N) ? ";:GOSUB 2859 

1868 IF inpval$="0" THEN üTAPE )YR 
1879 CLS #2:PRINT #2,"Press REC and PLAY then any key: 2BX 
MsCHRS(24);" Ts CHRS (24); CHR$ (8); 

1889 inpval$="":VHILE inpval$="":inpval$=UPPERS$(INKEYS) UF 
:MEND:CLS #2 

1898 INPUT #2, "Quel fichier voulez-vous creer (le type DMC 
’,asc’ est inplicite) ";files$ 

1998 1F file$="" OR LEN(file$)28 THEN PRINT CHR$(7);:CL DPN 
S #2:GO0T0 1899 

1918 CLS #2:PRINT #2,"A quel nunero de ligne voulez-vou )ED 
s commencer ? ";:ca%=2:leninpt=5:GOSUB 294ÿ 

1928 n1%=VAL(valinp$) )QR 
1939 CLS #2:PRINT #2, "Quel increment voulez-vous utilis >NB 
er ? ";:ca%=2:leninpx=5:G0SUB 294ÿ 


1949 incx=VAL(valinp$) >RD 
1958 CLS #2: INPUT #2, "Nombre de datas par ligne ";ndatl 2KF 
* 

1968 IF ndatl%=8 THEN PRINT CHR$(7);:G0TO 1959 >NH 


1979 CLS #2:PRINT #2,"Utilisez-vous le signe ’&' pour | >DK 

es datas (D/N) ? ";CHRS(24);" ";CHR$ (24) ;CHR$ (8) ; :GOSUB 
2859 

1988 IF inpval$="0" THEN anpX=1 ELSE anp%:$# >KM 
1998 CLS #2: INPUT #2, "Longueur de la chaine somme’ en RE 

fin de ligne ";lsun% 

2995 IF Isum%<>8 THEN GOSUB 239$#:CLS #2:PRINT #2,"Doit- »ZD 

on remettre a zero la chaine somme’ au debut de chaque 
ligne (O/N) ? ";CHR$(24);" "sCHR$(24) ;CHR$(B) ; :GOSUB 2 

859:1F inpval$="0" THEN csun%=1 ELSE csua%=#:1F inpval$ 

="0" THEN csun$:1 ELSE GOSUB 4998 


2919 XF 
2928 ‘ Ouverture du fichier choisi precedessent >XG 
QE ces )XH 
2948 DXJ 
2959 CLS #1:CLS #2 >L4 
2968 DIM valdat(ndat1%) >TP 
2978 OPENOUT "!'"+file$+".asc" NY] 








2888 )YC 
2899 ? Entree des DATAs, de la somme et verification VD 


2198 seen ss mens miss snsessee XF 
2119 ? >XG 
2128 correctx=#:GOSUB 252$ JU 
2139 DXJ 
2148 ‘ Ecriture dans le fichier choisi precedemnent >XK 
DASG "Se -rsse sn ssee sense es ses ss se sen see YA 
2168 )YB 
2179 PRINT #9,RIGHTS(STR$(n1%), LEN(STR$(n1%))-1);" DATA DEU 
2188 FOR i%=ÿ TO ndat1x-1 RG 
2199 IF ampX=1 THEN PRINT #9,"£"; ZE 
2298 PRINT #9,MID$("98",1,2-LEN(HEX$(valdat(i%))});HEXS DRF 
(valdat(ix)); 


2218 IF ixCndatl%-1 THEN PRINT #9,","; ELSE IF Isun<> NZ 
ÿ THEN PRINT #9,","; ELSE PRINT #9 


2228 NEXT ix% >AA 
2239 IF Isum%=# THEN GOTO 2389 >XN 
2248 1F amp%=1 THEN PRINT #9,"&"; ZA 


2258 PRINT #9,MHID$(STRINGS(1sua%, "9" ),1, LENCSTRING$(Isu >ML 
n%,"9"))-LENCHEXS$S(valsum)));HEX$(valsus) 


2269 »YC 
2278 ‘ Test pour continuer ou sortir »YD 
228ÿ ? ---------------- DE 
2298 DYF 


2399 PRINT #2,CHR$(24);" Appuyer sur <F> pour sortir ou >QH 
une autre touche pour continuer. ";CHR$(24); 

2319 inpval$="":VHILE inpval$="":inpval$=UPPERS(INKEYS) KW 
:MEND 

2328 CLS K2:1F inpval$="F" THEN CLOSEOUT:WINDONW 1,89,1, >MM 
25:CLS:KEY DEF 66,9,RFC,&FC, &FC:POKE &BDEE, &C3:LOCATE 1 
,1:PRINT "Vous pouvez charger votre fichier en tapant : 
":PRINT:PRINT "LOAD ";CHR$ (34) ;UPPERS(file$);".ASC";CHR 
$(34):PRINT:END 


2338 nl4=nl%+incx )LX 
2349 GOTO 2128 >HB 
2358 )YC 


2369 ‘ Sous-prograase du choix de la formule de calcul >YD 

de la sonne 

2378 ? ------------" "sons )YE 

2388 DYF 

2398 CLS #2:PRINT #2," Utilisez-vous cette formule de ca DJE 
cul (O0/N) : TOT=TOT+PEEK(AD) ? ";:GOSUB 2858:1F inpval 

$="0" THEN DEF FN sum=sumtvaldat(ix) : RETURN 

2498 CLS #2:PRINT #2," Utilisez-vous cette formule de ca DWJ 
lcul (O/N) : S=S+K+65536#(S+K)32767) ? ";:GOSUB 2858:1F 
inpval$="0" THEN DEF FN sua=suntvaldat(i)+65536%(sunt 

valdat(i%)>32767) :RETURN 

2419 CLS #2:PRINT #2,"Utilisez-vous cette formule de ca )QY 


Icul (O/N) : som=somta*j ? ";:GOSUB 2858:1F inpval$="0" 
THEN DEF FN sus=suntvaldat(i%)#(i%+1) :RETURN 

2428 DYA 

2438 ' Foraule de calcul suivante »YB 
2449 ddr uses »YC 

2459 ‘ Derniere foraule de calcul »YD 
2469 >YE 


2478 PRINT CHR$(7);:GOTO 2399 YXC 





2489 ? 

2498 ’ Sous-progranne d'entree et de verification des D 

ATAS 

2598 

2518 ‘ 

2528 inpsumX=8: IF correct*=9 THEN savsun=sus ELSE sun=s 

avsum 

2538 posx1%=POS(#1) :posy14=VPOS(#1):1F csum*=i THEN sun 
= 

2548 PRINT #1,RIGHT$(STRS(n1%),LEN(STR$(n1%))-1);" DATA 
fe 

2558 FOR i%=9 TO ndat1%-1 

2569 IF ampX=1 THEN PRINT #1,'"&"; 

2578 posrdx=POS(#1) :posyd*=VPOS (#1) :ca%=1 : leninp#=2: IF 

correct#=ÿ THEN GOSUB 2949 ELSE valinp$=HEX$(valdat (iv) 

, leninp#):PRINT #ca%, valinp$; :GOSUB 2959 

2589 valdat(i%)=VAL("&"+valinp$) 

259$ IF LEN(valinp$)(=2 THEN LOCATE #1, posxd%, posyd%:PR 
INT #1,HEXS$(valdat(ix),2); ELSE PRINT CHR$(7);:LOCATE # 

1,posxd#, posyd%:PRINT #1,SPACES(LENCHEX$(valdat(ix),2)) 
));:LOCATE #1, posxd%, posyd*:G0TO 2578 

2698 IF ixndati%-1 THEN PRINT #1,","; ELSE IF IsumY<> 

9 THEN PRINT #1,","; ELSE PRINT #1 


2618 IF Isum%<>8 THEN sun=FN sun 

2628 NEXT i% 

2638 

2648 * Entree de la somme (si besoin) 
2658 ? ------ sms. 
2669 


2678 inpsun%-1:1F Isun#=9 THEN RETURN 

2689 IF ampX=1 THEN PRINT #i,'"&"; 

2698 posxd%=POS(#1) : posyd%=VPOS(K1):ca%=1: leninp#=1sun% 
IF correctX=g THEN GOSUB 2949 ELSE valinp$=HEX$(valsun 
,Jeninp#):PRINT #ca%, valinp$; :GOSUB 2958 

2789 valsum=VAL("&"+val inp$) 

2719 IF LEN(valinp$)(=1sumx THEN LOCATE #1,posxd%, posyd 

X:PRINT H{,HEX$(valsum, Isum%) ELSE PRINT CHR$(7); :LOCAT 

E #1,posxd%, posyd%:PRINT #1, SPACES(LENCHEXS(valsue, Isun 

%)));:LOCATE #1, posxdx, posyd*:GO0TO 2699 

2728 

2739 " Verification de la soune (si besoin) 

2748 ! 

2758 

2768 1F valsun=sun THEN RETURN 

2778 PRINT N2,CHR$(24);" Erreur dans les datas. Appuyer 
sur €R> pour reconmencer ou <C> pour corriger. ";CHR$( 
24); :correctx:8 

2789 inpval$="":WHILE inpval$="":inpval$=UPPERS(INKEYS) 
:WEND 

2798 IF inpval$="R" THEN CLS H2:LOCATE #1, posxl4, posy1% 
:PRINT #1, SPACES(89) ; :LOCATE #1,posx1%, posyl%:sun=savsu 

n:G0TO 2529 

2899 IF inpval$:"C" THEN correctx=1:LOCATE #1, posxl%, po 
SylX:G0TO 2529 ELSE PRINT CHR$(7);:GOTO 2779 

2818 

282ÿ * Sous-programse d’entree 0 (oui) / N (non) 

2838 


>»YG ° 2858 PRINT #2,CHR$(24);" ";CHR$(24) ;CHR$(B); 


)YH 


>MK 


)YD 
DYE 
DYF 
»YG 





2869 inpval$=UPPERS(INKEYS):IF inpvals="" THEN 2869 
2878 IF inpval$O"D" AND inpval$C"N" THEN PRINT CHR$(7 
);:GOT0 2664 

2888 PRINT #2,inpval$;CHR$(24);" ":;CHR$ (24); CHR$(B); 
2899 RETURN 

2998 

2919 * Sous-progranne d’entree de caracteres hexadecina 
ux et de controle 

2929 
2938 

294ÿ valinp$="" 

2958 inpval$="" 

2969 WHILE inpval$()CHR$(13) 

2978 IF correctx=ÿ THEN PRINT #ca%,CHR$(24);" ";CHRS(24 
); 

2988 IF correct%=1 AND inpsum%=# THEN PRINT #ca%, CHRS (2 
4);", "3; CHR$ (24) ; 

2998 IF correct*=1 AND inpsum#=1 THEN PRINT #cañ%, CHRS(2 
4);" "iCHR$ (24); 

3898 inpval$=UPPERS(INKEY$):1F inpval$:"" THEN 3999 
3919 IF ASC(inpval$)=8 THEN 3999 * Touche BREAK 
3928 IF inpval$=CHR$(13) THEN 3189 ‘ Touche RETURN 
3939 IF inpval$CCHR$(127) THEN 3979 ’ Touche DEL 

3948 1F LEN(valinp$)=9 THEN PRINT CHR$(7);:inpvalé="":G 
OTO 3998 

3958 valinp$=MID$(valinp$,1,LEN(valinp$)-1) 

3969 PRINT Hca%,CHR$(B);CHR$S(B);" ";CHRS(8) ;CHR$(8);:i 
npval$="":GOTO 2978 

3878 IF LEN(valinp$)=leninp# THEN PRINT CHR$(7);:inpval 
$="":GOTO 3899 

388 IF (inpval$>="ÿ" AND inpval$<="9") OR (inpval$>="A 
"AND inpval$(="F") THEN PRINT #ca%,CHR$(8);" ";CHR$(8) 
jinpval$; ELSE PRINT CHR$(7);:GOTO0 3988 

3999 valinp$=valinp$+tinpval$ 

3198 IF LEN(valinp$)=# THEN PRINT CHR$(7);:inpval$="":G 
OTO 3999 

3118 WEND 

3129 PRINT Hcax,CHR$(8);" 
3138 RETURN 

3149 

3158 ‘ Sous-progranne de traitement du BREAK 
3169 
3178 
3189 CLOSEOUT:WINDOW 1,89,1,25:LOCATE 1,25:PRINT SPACES$ 
(89) ;:LOCATE 1,24:G0T0 3268 

3199 

3298  Sous-prograane de traitement des erreurs 

3218 
3228 
3239 CLOSEOUT:WINDOW 1,89, 1,25:CLS 

3248 PRINT "Erreur #";ERR;"a la ligne #";ERL 

3259 RESUME 3268 

3268 END 

4989 CLS#2:INPUT#2, "Valeur de la derniere ’somne’ de co 
ntrole en fin de ligne ";s$ 

4919 sum=VAL("k"+s$) 


";CHR$ (8); 


d 4928 csumt=9:RETURN 
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)LU 
JWK 
JN2 


MR 
GC 
)YD 
)YE 


YF 


>YG 
CF 
>CG 
>XH 
)BB 


UY 


JUN 


WG 
ZA 
> AP 
>CC 
KH 


JNJ 
»ZA 


UF 


AE 


»YZ 
KE 


>HK 
)DE 
)FA 
YA 
)YB 
»YC 
)YD 
?LF 


YF 
>XH 
DJ 
>XK 
>D4 
UB 
>GK 
>YK 
HR 


JR 
PL 


BON DE COMMANDE 


Pour chaque article, entourez le ou les n° choisis. 
ANCIENS Nos AMSTAR & CPC 

N° 26-27 28-29-30 — 31 - 32-33-34 
36-—-38-39-40-41-42-43-44-45-46-47 


DISQUETTES AMSTAR & CPC 
N°20-21—22- 23-24-25 - 26 — 27 — 28 - 29 — 30 
(une disquette réunit 2 numéros consécutifs d'Amstar & CPC) 


ANCIEN No CPC Infos 
N°25—26- 27-28-29 — 30 — 31 — 32 - 33-34 — 35 — 36 — 37 - 38 


DISQUETTES CPC Infos 

— MEGA SOUND 

— ANS 

— N° 31 (Am/Stor 48 & CPC Infos 24) — N° 32 (CPC Infos 25 & 26) — N° 33 (CPC Infos 27 & 28) 


Abonné 
Non abonné 


— N° 34 (ŒPC Infos 29 & 30) — N° 35 (CPC Infos 31 & 32) — N° 36 (CPC Infos 33 & 34) — N° 37 (CPC Infos 35 & 36) 


— N° 38 (CPC Infos 37 & 38) 


ANCIENS Nos HORS-SERIE CPC 
N°7-8-9-10-12-13-14-15-16 
N°17-18-19-20-21-22-23 


DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 
N°1—-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19 
(une disquette réunit 2 numéros consécutifs de (PC) 

HS1 — HS2 — HS3 — HS4 — HS5 — HS6 — HS7 — HSB — HS — HS10 — HS11 

HS12—HS13— HS14— HS15 — HS16 — HS17 — HS18 — HS19 — HS20 — HS21 - HS22 -- HS23 


ABONNEMENT 6 DISQUETTES (non rétroactif) 


DISQUETTES “ ARCADES/”’ Téléchargement AMSTRAD CPC 
CABLE pour téléchargement 
[Téléchargement non compatible avec 6128+ et 464+) 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 


Forfait port + 10 F par logiciel et 10 % pour livres 


Pour tout envoi par avion : 
prendre contact avec le service commercial 


A expédier à : Editions SORACOM 
La Haie de Pan - 35170 BRUZ 


25 F [unité] 
26 F {unité) 


110 F {unité) 
140 F {unité) 


26 F {unité) 


Abonné : 
110 F (unité) 
Non abonné : 
140 F (unité) 


21 F (unité) 
23 F (unité) 


Abonné : 
110 F (unité) 
Non abonné : 
140 F (unité) 


600 F 


60F 
89F 


Franco 
Franco 


Franco 


Franco 
Franco 


5F 
5F 


Q Facultatif : recommandé + 20 F par commande 


MONTANT GLOBAL 


Je joins mon règlement : Q mandat 


Q chèque bancaire 
PAYEZ PAR CARTE BANCAIRE 


ERASESSSSSREMEMRM 
be] 


[inscrire les numéros de la carte, la dale et signer] 


Q chèque postal CPC Infos 39 


Nom : 


Adresse : 


Dote d'expiration Signature 


Code Postal : Ville : 


ECRIRE EN MAJUSCULES 


Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 
téle de ne pas agraler les chèques, et de ne rien inscrire au dos. 


Signature 


Commande : La commande doit comporter tous les renseignements demandés sur le bon de commande (désignation ou rélérence si celle-ci existe). Toute absence de précisions est sous la responsabilité de l'acheteur. La vente est 
conclus dès acceptafon du bon de commande par notre société, sur les articles disponibles uniquement. 

Les prix : Les prix indiqués sont valables du jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le libellé de nos tarifs au moment de la fabrication du catalogue, et de 
variation de prix importante des fournisseurs. 

Livraison : La im aison intervient après le règlement Les délais de Evraison étant de 10 à 15 jours environ, SORACOM ne pourra dtre tenue pour responsable des retards dus aux tranaporteurs ou aux grèves des services postaux. 
Treneport : La marchandise voyage aux risques et péris du destinataire. La lvraison se faisant par cos postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur iute la France métropolitaine, + 20 F par 
aricie pour Outre-Mer par avion et au-dessus de 5 kg nous nous réservons la possiblité d'ajuster le prix de transport enfonction du coût réel de celui-ci. Pour bénéficier de recours possible nous invitons notre aimable clientèle à opter pour 
l'envoi en recommandé. À réception des paquets, toute détérioration doit ètre signalée Réciamation : Toute récamaon doit intervenir dans les dix jours suivants la réception des marchandises. 








TRANSFERT DE FICHIERS 
ENTRE DES DISQUETTES 
A FORMATAGE STANDARD 
OÙ SPECIAL (I) 


Ltd acte]: 


Valable pour CPC 464 - 664 - 6128 





deuxième version de TRANSFIL, 

publié dans CPC Infos n°36 de 
septembre dernier. TRANSFIL V1.0 
présentait le fâcheux défaut de ne 
pas tourner sur 6128. Mea culpa ! 
L'erreur est réparée et les possesseurs 
de 6128 pourront enfin faire des 
transferts entre des disquettes de 
formatages différents. 


L e programme proposé est une 


MISE EN ŒUVRE 


1) Tapezle programme TRANSFIL.BAS 
et sauvegardez-le au cas où vous ne 
l'aurez pas encore fait. Il se distingue 
de celui publié en septembre 
uniquement par le changement de 
«TRANSFIL V 1.0» en «TRANSFIL V2.0» en 
ligne 500. 


2) Remettez à zéro le CPC, puis tapez 
le programme CHARGEUR.BAS. 
Ensuite sauvegardez-le, par pru- 
dence, avant de le laricer. Au bout 
d'une vingtaine de secondes, si tout 
va bien, le fichier binaire TRANS- 
FIL.COD est sauvegardé. Désolé mais 
dans ce cas il faut en retaper une 
bonne part. C'est identique à la 
version 1.0 jusqu'à la ligne 1470 (30% 
de listings identiques). 


3) Pour travailler vous n'avez plus 
besoin désormais que des fichiers 
TRANSFIL.BAS et TRANSFIL.COD. sur une 
même face de disquette naturel- 
lement. 


PARTICULARITES 
DE TRANSFIL V2.0 


TRANSFIL V2.0 est identique à son 
prédecesseur quant à son fonction- 
nement. Les changements “fonda- 
mentaux” sont la taille des fichiers 
transférables (quoique...) et l'occur- 
pation mémoire. 


- Buffer de transfert 


Il est un peu plus petit que pour 
TRANSFIL V1.0. Néanmoins tous les 
fichiersnon-ASClljusqu' à 42 KO seront 
transférables (42918 octets de buffer). 
Les fichiers ASCII jusqu'à 40KOle seront 
de même. Autant dire que 99.99% 
des fichiers existant sur CPC seront 
transférables et que la différence par 
rapport à la première version est 
infime. 


- Occupation de la mémoire par 
TRANSFIL V2.0 (binaire) 


0000 routine d'affichage d'un texte 
qui s'achève par un zéro 

0006 

0007 type du fichier en transfert. 
0008 sauts standards en RAM/ROM. 
O02F 

0030 TXT OUTPUT (copie du vecteuren 
BB5A) 

0032. 

0033 RAM standard 

O03F 

0040 programme principal de gestion 
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des commandes, de transfert et 
O2FF d'effaçage avec les messages 
0300 BUFFER 1/0 AAAS5 


AAAT7 adresses pour FAR CALL des 
RSXs de lecture/écriture de secteur 
AABS5 recherche de piste, DIR et ERA 
AAB6 Pack des routines de TRANSFIL 
ABFB 

ABFC 4 octets requis par l'AMSDOS. 
ABFF 

AC00 début de la RAM du DOS 
(RAMDOS) 

AD64 buffer pour les vecteurs cassette 
utilisé ici pour stocker les 

AD8A LOC.LEN.EXEC, nom et sa 
longueur de fichiers + chiffres Hexa. 


BOFF fin de la RAMDOS. 

B100 RAM nécessaire au système 
d'exploitation. 

B&8FF. 

B900 VECTEURS du système 
d'exploitation, du BASIC, indirections. 
BDF6 du système d'exploitation. 
BEO0 DPB numéro 1 et DPB numéro 2 
BE31 

BE32 paramètres pour détermination 
des lecteur et user source et 

BE3F destination et pour le sens de 
cople. 

BE40 RAM strictement réservée à 
l'AMSDOS (pas touche). 

BE7F 

BE80 texte du menu 

BF41 

BF42 RAM affectable par la pile 

BFFF 

C000 RAM vidéo 


FFFF 


Par rapport à TRANSFIL VT.0, les zones 
de vecteursn'ontpasété recouvertes 
par des routines ou données. Le 
plantage sur 6128 (et 664 à coup sûr) 
venait de la présence en BDF4 d'une 
indirectionliée à la gestion du clavier, 
ce qui ne pardonnait pas de la 
remplacer par des données. 


CONCLUSION 


Cette fois plus de problème, cela 
toume | Puisse TRANSFIL rendre bien 
des services avec l'aide de FORMAT+ 
et des quelques petits programmes 
d'exploitation de formatage spécial 
présentés dans CPC Infos de juillet. 
Bons DATA+, DB1-198K, DB2-198K, 
etc. 





L E S 
NOUVEAUX 
P I NS 
on common use DS 














Te ; BA f 359 ‘init. de parans pour le tableau RJ 
ANSE 369 k$="":ch$=CHRS(243)+CHR$(242)+CHR$ (241) +CHR$(248)+C >DP 
HR$(13):x=9:y=9:LOCATE g,h+2:PRINT inv$;nom$(1);inv$:c= 
48:GOSUB 669 
MIAMTTETTETEELISLITELEILESLEZEELEESELLE )RB | 37% >TA 
119 ‘x TRANSFEREUR de fichiers entre * >RC | 389 ? >TB 
129 ‘* entre tous formats pour CPC.  # DRD | 399 ’xxux CHOIX #*x4 )TC 
138 ‘x copyright Yannick GOUR (c)1991 x RE | 499 ? RE 
IUTAELLELECEEEEEEEECEEEZEESEESEESEEEES SE DRF | 419 WHILE k$OCHR$S(13) :GOSUB 699 >Z2Q 
159 RG | 429 FOR i=1 TO 29:k$=INKEYS:NEXT:WHILE k$="":k$=INKEYS: »2Q 
169 DRH | VWEND:k=INSTR(ch$,k$):1F k=9 THEN 428 ELSE IF kOS5 THEN 
179 ‘xxax INITIALISATIONS *xx4% DRJ | GUSUB 699:1F k=1 THEN x=(x+1) MOD n ELSE IF k=2 THEN x: 
189 ? >RK | (utn-1) MOD n ELSE IF k=3 THEN y=(y+#1) MOD n ELSE y=(y+ 
199 CALL &BB99:SYMBOL AFTER 256:MEMORY &9998:LOAD"trans DNT | n-1) MOD n 
fil.cod":DEFINT a-2:DIM fmt$(28),non$(28),dpb(28,25):in 439 VEND >CF 
V$=CHR$ (24) :DEF FN dec(a$)=VAL("&"+a$):DEF FN nsb(a)=IN 44g )RJ 
T(a/256) AND 255:DEF FN Isb(a)=a AND 255 459 >RK 
289 DRC | 468 ’xxxx LANCEMENT DU TRANSFEREUR ##4 >TA 
219 )RD | 479! )TB 
229 ‘#xax CREATION DE L'ECRAN #### RE | 488 ’creation de l'ecran >TC 
239 DRF | 498 c=8:G0SUB 668:CLS:FOR i=9 TO 2:READ v,a$:LOCATE 1,v WR 
248 ‘ecriture des textes RG :PRINT STRING$(88,CHR$ (297) ) ;inv$:LOCATE 2,v:PRINT a$;i 
259 c=8:GOSUB 669:BORDER 13:INK 8,8:INK 1,26:MODE 2:WHI DFR | nv$:CALL k9F84,8,8+8xLEN(a$), (25-v)416, (26-v)#16-2:NEXT 
LE wC7:G0SUB 679:WEND:CALL &9F61:CLS#1:READ x,y,a$,a, b 
tMHILE a$O'FIN":LOCATE x,y:PAPER a:PEN b:PRINT a$:READ | 599 w=ÿ:WHILE wO7:GO0SUB 679:CLS#w:WEND:PRINT" TRANSFIL »YC 
x,y,a$,a, b:WEND |  V2.9 (C) Y. GOUR 1991.":F$=STRINGS(3, CHR$ (154) )+CHR$( 
269 DRJ | 243):a$="Transferts A(ÿ):"+fats(y+1)4" "#84" A(D):"#f 
278 ‘lecture des formats >RK | nt$tx+1):LOCATE Bÿ-LEN(a$),1:PRINT a$ 
288 n=1:READ fnt$(n):HHILE fmt$(n)C©"FIN":1=MAXCI,LEN(F DCP | 519 ? >RG 
mt$(n))+2):READ a$:a=FN dec(a$):dpbln, 1)=FN 1sb(a) :dpb{ 529 'ecrit params pour bandeau sup. RH 
n,2)=FN msb(a):FOR j=3 TO S:READ a$:dpbln, j)=FN dec(a$) 539 a=&BE32:POKE a+9,9:POKE a+1,79-LEN(a$)+INSTR(a$, "A" )2J 
:NEXT :POKE a+2,9:POKE a+3,PEEK(a+1)+11+LENCfmt$(y+1)) :POKE 
299 FOR j=6 TO 14 STEP 2:READ a$:a=FN dec(a$):dpbln, j)= >ZV | a+4,9:POKE a+5,PEEK(a+1)+2:POKE at6,9:POKE a+7,PEEK(at3 
FN Isb(a):dpbln, j+1)=FN msb(a):NEXT:FOR j=16 TO 25:READ +2 
a$:dpb(n, j)=FN dec(a$):NEXT:n=nt1:READ fat$(n):VEND:n= 54ÿ POKE a+8,PEEK(a+3)-5:a$=CHR$(242)+f$:FOR i=1 TO LEN )BZ 
n-l (a$):POKE a+8+i,ASC(MID$(a$,i,1)):NEXT 
399 ? RD | 559”. )TA 
318 ‘affichage du tableau des formats RE | 568 ’ecrit DPBs TB 
329 h=t4-n:g=1+(79-(n+1)x(1+1))/2:PAPER B:PEN 1:FOR i=1 DUC | 579 a=&BEBÿ:FOR i=8 TO 24:P0KE ati, dpb(y+1,i+1):POKE a+ DDH 
T0 nta$=fnt$(i):sp=(1-LEN(a$))/2:nom$(i)=SPACE$(1-LEN( 25+4i,dpb{x+1,i+1):NEXT 
a$)-sp)+fnt$(i)+SPACES(sp):LOCATE g+(1+1)#i,h:PRINT nom 589 ? TD 
$(i):LOCATE g,h+2xi:PRINT nom$(i) :NEXT 598 ’reloge texte du menu et lance transfereur >TE 
.339 1$=SPACES(1):FOR i=1 TO n:FOR j=1 TO n:LOCATE g+(1+ KP | 699 c=49:GOSUB 669:CALL &9EBD:CALL A9 )GU 
1)#i,h+2#j:PRINT IS$:NEXT j,i 619 >RH 
344 )RH | 629 ? )RJ 


639 ‘#x#x ROUTINES DIVERSES ###x 

649 

659 ’c=ÿ:ecran:bord; c=4f:ecran nornal 

669 CALL &BD19:OUT &BCSD, 1:OUT &BD4, c:RETURN 


679 READ w,i,n,d,o,v,s:WINDOW#w, i,n,d,o:PAPEREw, v:PENtw 


; S2RETURN 
689 ’selection/deselection dans tableau 


699 LOCATE g+(x+i)#(1+1),h+(y+1)#2:PRINT inv$;1$:1F kÇ3 
THEN LOCATE g+l+xti+xxl, h:PRINT non$(x+1) ELSE LOCATE 


g,h+2#y+2:PRINT nom$(y+1) 
789 RETURN 

719 

72 ? 

739 '*xxxx DONNEES POUR L'ECRAN ###4 
74g ; 

758 DATA 8,1,89,1,25,9,1 
769 DATA 1,36,45,2,4,1,8 
778 DATA 6,2,49,25,25,3,1 
789 DATA 7,1,1,1,24,9,8 
199 

899 DATA 37,3,TRANSFIL, 1,9 


818 DATA 19,6," Transfereur de fichiers entre tous form 


ats ",9,1 


829 DATA 9,23," touches curseur pour la selection et EN 


TER pour la validation ",8,1 

838 DATA 32,25," (C) Y. GOUR 1991 ",1,8 

849 DATA 9,8,FIN,9,8 

859 

869 

879 *xxxx DONNEES DE FORMATS #x#4 

884 

899 DATA "DATA" 

949 DATA 8924,93,97, 09, 00BC,093F,90C0, 0019, 0099 
919 DATA C1,89,2A,52,E5,02,94,09,09,FF 

928 

939 DATA "DATA+" 

949 DATA 0028,03,07, 00, 99D1,993F,40C8, 0919, 000 
gb DATA C1, 84,18,24,E5, 02, 04,00, D6,FF 

964 ? 

979 DATA "DB1-198K" 

989 DATA 9928,93, 97,09, 09C7,893F,90C9, 0019, 0909 
999 DATA C1,9A,18,24,E5,92,94,09,08,FF 

1999 

1919 DATA "DB2-198K" 

1929 DATA 00286, 03,97,00,90C7,093F, 99C0,0819, 9928 
1939 DATA C1,9A,18,24,E5,92,04,68,08,FF 

1949 ? 

1959 DATA "VENDOR" 

1969 DATA 9824, 03,07,00,00AA,003F,09C0,9919, 9892 
1979 DATA 41,99, 2A,52,E5,92,94,90,08,FF 

1989 

1999 DATA FIN 

1199 

1119 

1129 '#4#x ECRAN DU TRANSFEREUR *#+# 

1139 


1148 DATA 2,"Source'",{2,"Destination",22 


un 


1158 DATA 9,1,88,1,1,1,8 


RK 
)TA 
>TB 
NE 
>TL 


)TE 
>AR 


>2C 
)RJ 
>RK 
TA 
)TB 
QT 
)QC 
RD 
>PZ 
>TG 
)VP 
DH 


)LE 


)EY 
)NB 
)TD 
>TE 
)TF 
>TG 
)YA 
MU 
)DF 
>TB 
)DE 
>MK 


>DG 


JNJ 
)EE 








1168 DATA 1,1,89,3,11,9,1 
1174 DATA 2,1,88,13,21,8,1 
1188 DATA 3,1,89,23,25, 1,9 
1199 DATA 7,1,88,1,1,1,9 
1299 


CHAR Geuk. . BAS 


NU AELEELTLEZEEIEEZESIEIZELEEI TITLES 


119 ‘x TRANSFIL: chargeur binaire * 
129 "*x copyright Y. GOUR 1991 x 
KT ARE LTELELETEEEEEEITEITEELEILTELE 
149 ? 


159 MEMORY 89999 :OPENDUT"x":MEMORY HIMEM-1 : CLOSEOUT 


169 DEFINT a-z:d=&9E89:ad=d:1=214+8 
179 FOR i:ÿ TO 213 
189 sun=f:parite=ÿ 


199 FOR j=ÿ TO 7:READ a$:a=VAL("&"+a$):POKE adt)j,a 


289 sua=suata:parite=parite+(a MOD 2)42°j 
218 NEXT 
229 READ a$,b$:52=VAL("&"+a$):p2=VAL("&"+b$) 


RE 
>RP 
>RX 
)QQ 
XF 


238 IF sunCs2 THEN PRINT'Erreur de data en ligne"; (1999 


+19xi):STOP 


248 IF parite<>p2 THEN PRINT'Interversion de datas en li 


gne"; (1999+19+i) :STOP 

25ÿ ad=adt8 

268 NEXT 

278 SAVE"transfil.cod",b,d,l 

288 END 

298 ? 

1999 DATA 21,8C,9E,11,89,BE, 91, DP, 368, 949 
1919 DATA 99,ED,B9,C9,9C, 1F,96, 91,298, AA 
1929 DATA F2,94,28,3A,6C,65,63, 74,36E, 868 
1938 DATA 65,75, 72,29, 73,6F, 75,72,335,973 
1949 DATA 63,65, 1F,1F,91,9A,F3,28,2B4,95F 
1959 DATA 3A,60,65,63, 74,65, 75, 72,32E, ÿ6C 
1969 DATA 29,64,65,73, 74,69,6E,61, 388, ZAC 
1979 DATA 74,69,6F,6E, 1F,3B,91,54,269,976 
1988 DATA 41,42,29,3A, 73,6F,75,72,2A6,871 
1999 DATA 63,65,F2,F3,64,65, 73, 74, 45D, 96B 
1199 DATA 2E,1F,97,92,F8,28,3A,75,215,086 
1119 DATA 73,65, 72,29,73,6F, 75, 72,333,973 
1129 DATA 63,65,1F,1F,92,F1,29,28,239,92F 
1139 DATA 3A,75,73,65,72,29,64,65,2E2,ÿ8E 
1149 DATA 73, 74,69,6E,61,74,69,6F, 36B, 9D5 
1158 DATA 6E,1F,3B,92,44,45, 4C, 29, 1BF,926 
1169 DATA 3A,65,66,66,61,63,65,1F,2B3,8F2 
1179 DATA 93,93,66,31,2F,66, 34, 29, 186, 91B 
1188 DATA 3A,43,41,54,2F,44,49,52,22ÿ,956 
1199 DATA 29,73,6F,75,72,63,65,1F,2D9,9EE 
1298 DATA 1C, 93, 66,32, 2F,66,35, 26, LA1, 052 
1219 DATA 34,43,41,54,2F, 44, 49,52,228,956 
1228 DATA 29,64,65,73,74,69,6E,61, 388, GAC 
1239 DATA 74,69,6F,6E, 1F, 3B,93,52, 269,976 
1248 DATA 45,54,28,3A, 74,72,61,6E,2AB,941 
1259 DATA 73,66,65, 72,65, 90,89,99,215,915 
1264 DATA 99,00,09,09,00,05,00,00,000, 009 
1278 DATA 90,00,90,00,00,00,99,060,099, 008 
1288 DATA 99,3E,8C, CD, 5A, BB, 21,99, 24D, 968 


1298 DATA C9,11,91,C9, 4D,3E,55, 86,278, 956 
1399 DATA 08, 77,ED,B9,97,47,7C,R7, 39D, BG 
1319 DATA 78,28,F4,C9,99, 90,99, 89,255, 958 
1329 DATA 609,99,09,99,DD,E5,E1,11,2B4,9F8 
1339 DATA ?7C,9F,91,96,98, ED, B9, 2A, 2EB, 926 
1349 DATA 7C,9F,CB, 65, 23,23,22,BB,38E, BE 
1359 DATA 9F,2A,82,9F,CB,85,22,C5,421,ÿB9 
1369 DATA 9F,24,65,9F,CB,85,23,23,37E, ÿF9 
1379 DATA 22,EB,9F,3E,91,CD, DE, BB, 451,9B6 
1389 DATA 2A,7E,9F,CB, 85,2B,28B,AF, 39C, fFC 
1398 DATA 23,23,91,99,99,54,5D, ED, 1E5,9C7 
1499 DATA 42,D8,62,68B,11,98,98,CB, 2BB, #98 
1419 DATA 4D,26,91,13,D5,1B,CD,F6,33C, #7D 
1429 DATA 9F,28,12,13,CD,F6,9F,28, 366, 959 
1439 DATA 9C,13,CD,F6,9F,29,96,E5, 380, 996 
1449 DATA 1B,CD,EA,BB,E1,D1, 13,13, 465, DFB 
1459 DATA D5,EB,91,99,99,AF,ED, 42,39F, 967 
1469 DATA EB,D1,38,D8,18,C2,E5,D5,569, 403 
1479 DATA CD,F8,BB,D1,E1,FE, 99, C9,5F1, 89D 
1489 DATA F3,CD,37,BD, 21,22, A1, 11, 3A9, SDF 
1499 DATA B6,AA,91,46,91,ED, B9, 21,366, 2B4 
1599 DATA 66,42,11,49,98,91,98,93,15F,DA4 
1519 DATA ED,BS,21,92,A8,11,99, 99, 391,925 
1529 DATA 91,97,99,ED, B9,21,5A,BB, 2DB, JAB 
1539 DATA 11,99,98,91,93, 99, ED, BD, 1F2,959 
1549 DATA 21,99, A9,C7,21,FF,B8, 11,492, PBB 
1559 DATA 49,89,9E,97,CD,CE, BC, 21,2CD, 998 
1569 DATA BE, AS, 11,47, AA, 96,95,E5, 3Bÿ, fCC 
1579 DATA C5,D5,CD,D4,BC, 39,31, D1,529, C7 
1588 DATA EB, 73,23, 72,23, 71,23,EB, 395, ÿF7 
1599 DATA Ci,E1,7E,23,FE, 99,29, FA, 45B, 99B 
1698 DATA 19,E5,21,66, AD, 22,64, AD, 35C, 996 
1619 DATA 21,69,AD, 22,67, AD,21,CC,35A,977 
1629 DATA Aÿ,11,7B,AD,91,18,99,ED,2D7,99E 
1639 DATA B4,31,99,C8,FB,C3,22, 91,382, 9B2 
1649 DATA CD,B6, AA, 21, DC, AD,C7,CD,55E, 8C9 
1659 DATA BD, AA, 21,08,99,9E, FD, CD, 369, ÿC5 
1668 DATA 16,BD,7E,F7,23,B7,29,FA,43C, 3A 


1674 DATA C9, 1F,01,01,20,5a,62, 44, 1F1,08F | 


1689 DATA 4E,53, 46,49, 4C, 28,56, 32,224, HÿA 
1699 DATA 2E, 39,29, 29,286, 43,29, 29, 152,969 
1798 DATA 59,2E, 29,47, 4F,55,52,29,2h4, 939 
1719 DATA 91,39,39,31,2E, 9, 84, 09, 186, G9F 
1729 DATA 85,99,687,99, 44, 49,D2,90,26B, 925 
1739 DATA 45,52,C1,99,39, 31,32, 33, 21E, DAS 
1749 DATA 34,35,36, 37, 38,39, 41, 42, LCA, DEA 
1759 DATA 43,44,45,46,9A, 29,29, 29, 17C, 985 
1769 DATA 29,29, 29,29, 20, 29,28, 28,199, 900 
1779 DATA 29,50,41,53,29, 44,45, 29, 1CD, ac 
1789 DATA 52,4F,4D,29,44,49,53,43,231,ÿE6 
1798 DATA 21,29,28,2D,52, 45,53, 45, 1BD,ŸE9 
1899 DATA 54,29,4E, 45,43, 45,53,53,235,9F8 
1819 DATA 41,49,52,45,2D, 29,29, 46, 1D4,91B 
1829 DATA 52,41,59,59,45,52,28,55, 23F, 992 
1839 DATA 4E,45,289,54,4F,55,43, 48, 236,972 
1849 DATA 45,99,96,93,9E,98,C3,B7, 1D6, 9C9 
1859 DATA BB,C5,96,64,CD, 99, BB, 19, 38B,973 
1869 DATA FB,C1,C3,96, BB, AF, 32, 47, 468, 9B7 
1879 DATA AB,21,43,AB,C7,C9, 21, 32, 39D,97F 
1889 DATA BE,18,93,21,36,BE,4F,46, 283, ÿ4C 
1899 DATA 34, 3A, BE, E6, 89, 87, B9, 76, 3D9, 269 
1999 DATA C6,23,23,7E,C9,57,CD, D2, 44B, 976 





1919 DATA AA,5F,32,08, AC, C6, 41, 32, 329,942 
1929 DATA 74,09, 7A,CD,D7, AA, 32,91, 36F, 198 
1938 DATA AC, 42,4B, 21,99, BE, 3A, 3A, 28C, DAC 
1949 DATA BE,E6, 89,97, BE,28, 93,21, 32F,8C8 
1959 DATA 19,BE, 11,99, AD, AF, B9, 28, 385,975 
1964 DATA 95,11,D8, AD, 78,91, 19,98, 223, 96B 
1979 DATA ED,B9,C9,CD,E9, AA,47,04,511,95D 
1988 DATA C5,CD,B8, AA, 21,49,08,C7,41C,993 
1998 DATA 21,64,99,C7,C7,CD, BD, AA, 447,479 
2899 DATA FE,FC,C1,C9,E1,21,BE,98,53B, 934 
2919 DATA C7,CD,B8, AA, C3, 20,91, 1F, 495, 9D3 
2929 DATA 09,91,00,99, 00,00, 00,21,922, 082 
2939 DATA 69,AD,96,99,CD, BD, AA, FE, 44,933 
2849 DATA FC,C8,FE, 9D, 29, GA, AF,B6, 469, 948 
2959 DATA 28,F2,76,32,66, AD, 37, C9, 3D7,4E8 
2969 DATA FE, 7F,29,9E, AF,B8,28,E4,41E, 012 
2979 DATA 3E,98,F7,3E, 19,F7,2B,95,2B2,9E4 
2989 DATA 16,DA,FE, 29, 38,D6,FE,5B,477, 089 
2998 DATA 38,94,D6,29, 18,F4,77,3E, 2F3, 949 
2198 DATA 9C,B8, 28,C8, 7E,94,23,F7,359, CD 
2119 DATA 18,02,D5, 47, AF,EB, ED, 52, 4CF,97C 
2128 DATA 3F,EB, 78,D1,C9,21,BE, 99, 41B, 03B 
2139 DATA C7,CD, BD, AA, C3,C3,91,21,4A3,9F7 
2149 DATA 69, AD, 3A,66, AD, 47,C3,77,3E4,ÿF3 
2158 DATA BC,AF,CD,E9, AA, 21, 49,89, 42C,92E 
2168 DATA C7,07,21,64,99,C7, 21,92, 38D, 67 
2179 DATA 99,C7,C9,22,E4, AB, 3E, 91, 389, GAG 
2188 DATA CD,E9, AA,21,49,98,C7,21,3A9, 9CB 
2198 DATA 57,89,C7,C7,C7, CD, BD, AA, 4E8, 97D 
2258 DATA FE,FC,29,94,E1,C3,C3,91,486, 9F@ 
2219 DATA 21,D7,99,07,21,69, AD, 11, 397, 9FB 
2229 DATA 09,99, 3A,66, AD, 47,CD,8C,2ED, #78 
2239 DATA BC,D8,E1,C3,99, AB, 99, 9, 47C,93C 
2249 DATA 69,09,00,09,00,00,00,09, 000,009 
225$ DATA 9C,49,6E, 73,65, 72,65, 72,2E4,95A 
2268 DATA 29,44, 49,53,43,29,08, 73, 1D6, 49 
2278 DATA 6F,75,72,63,65, 29,99, 64, 2A2,01B 
2284 DATA 65,73,74,69,6E,61, 74,69, 361, JAB 
2299 DATA 6F,6E,29,99,64,61,6E, 73,243, GA1 
2399 DATA 29,60,65,29,6C,65,63, 74, 289,964 
2319 DATA 65,75, 72,29,899, 20, 29, 79,228, 993 
2329 DATA 75,69, 73,29, 90, 78, 72,65, 2BB, 987 


2338 DATA 73,73,65,72,29,75,6E,65,325,9A7 


2349 DATA 29,74,6F,75,63,68,65, 3A,2E2,95C 
2359 DATA 9A,99,65,6E, 74, 72,65, 72,29A, ÿä4 
2369 DATA 29,6C,65,29,6E,6F,6D,28,27B, 964 
2379 DATA 64,75,28,66,69,63,68, 69, 2FC, ÿB2 
2389 DATA 65, 72,99, 3A, 29,9A, D, 98, 148,841 
2399 DATA 29,61,29,65,66,66,61,63, 296, SCA 
2499 DATA 65, 72,3A,9A, 9D,98,0A,9D,13F,991 
2419 DATA 29,29, 2A,28,41,62,61,6E, 1FC,958 
2429 DATA 64,6F,6E, 29, 2A,98, OA, QD, LA2, 882 
2439 DATA 6C,69,74,2E, 2E, 2E, 99, SD, 1E9, 982 
2449 DATA 65,63, 72,69, 74,2E,2E,2E, 2A1, 09B 





2459 DATA 98,90,0A,9D,65,66,66, 61, 149,998 : 


2469 DATA 63,65,2E,2E, 2E,98,FE, 31, 281,983 
2479 DATA 29,89D,AF,CD, 1F,AB,C5,11,349,9FE 
2489 DATA 99,93,CD,9B, BC, 18,15,FE, 352,4E 
2499 DATA 32,28,84,3E,91,18,EC,FE, 297,919 
2589 DATA 34,29,0F,AF, CD, 1F, AB,C5,36E, BFC 
2519 DATA AF,DF,B9, AA, C1, CD, B8, AA, 5D8, 933 
2529 DATA 18,12,FE,35, 29,9E,3E, 91, 1CA, 988 


11 


2539 DATA 18,EA,CD, B6, AA, 21, 89, BE, 48E, 924 
2548 DATA C7,CD,B6, AA, CD, BD, AA, FE, 626,933 
2559 DATA F2,29,16,AF,CD, D2, AA, EE,54E, 918 
2568 DATA 91,77,C6,41, 32,46, AB,23,2C5, fCB 
2579 DATA 7E,32,44, AB, CD, C9, AA, 18, 3F 7,938 
2568 DATA ES,FE,F3,29,94,3E,91,18,34F,945 
2599 DATA E3,FE,F4,29,14,AF,CD,D7,558,4E1 
2699 DATA AA,3C,E6,9F, 77,96, 98,4F,2A7,098 
2619 DATA EB,21,7B, AD, 99, 7E, ER, 18,3BE, 95F 
2629 DATA DS,FE, F1,29,94,3E,91,18,33D, 945 
2639 DATA E5,FE, 99, 29,29, 21, SA, BE, 345,925 
2649 DATA 7E,EE, 89, 77,47,E6, ?F, 32,441, 958 
2659 DATA 44,AB,23,CB, 78, 29,91, 23, 299, CE 
2669 DATA 11,46, AB,91,94,99,ED,B#, 2A4, 4D 
2679 DATA CD,CD, AA, 18,97,FE, QD, 26,426,953 
2689 DATA 27,FE, 7F,C2,EE,98,CD,B6, 407,945 
2699 DATA AA, CD, AD, AB,21,B9,99,C7,467,Q9E 
2799 DATA CD, 4B, AB, 39, 9D, 21,E2, 98, 383,937 
2719 DATA C7,8E,91,DD, 21,64, AD, DF, 3F4, BDD 
272ÿ DATA B3, AA, CD,B6, AA, C3,22,91, 478, DAS 
2738 DATA CD,B6, AA, CD, 7D, BC, CD, 92,592, 959 
274$ DATA BC, CD, AD, AB, C7, CD, 4B, AB, 56B,9FE 
2759 DATA 38,E8,21,CE,99,C7,11, A5,384,9E4 
2768 DATA A2,CD, A3, AB, 38,E5,FE, 94, 4D4, ÿ2E 
27179 DATA 38,44,21,99,93,11, A5, A2, 1F8,8974 
2784 DATA CD,89,BC, 39, 98, 77,23,CD, 3AB, BEL 
2799 DATA 8E,AB,98,F4,AF,FE, 14, C2,4FE, 912 
2899 DATA 99, AB, 28, 22, 75, AD, CD, 7A, 3FA,877 
2819 DATA BC,D2,99, AB, 21, A5, A2, CD, 597, #BC 
2829 DATA BF,AB,21,99,93,ED,5B, 75, 34B, ÿF7 
2839 DATA AD, 7E,CD,95,BC, D2,99, AB,55F, SCD 
284ÿ DATA 23, CD, 8E, AB, 38,F3,CD,8F, 49, JEB 
2859 DATA BC,D2,99, AB, 18, 9D, ED, 53, 4C7, SEC 
2864 DATA 75, AD, ED, 43, 77, AD, 32,97, 3AF, GBF 
2879 DATA 99,21,09,93,89,2B,11,A5,18E,@FA 
2884 DATA AA, CD, 8E, AB, D2,C3,91,21, 467, BEA 
2898 DATA 99,93,CD, 83, BC, D2, 99, AB, 425, QCE 
2998 DATA 22,79, AD, CD, 7A, BC, D2,99, 4B6, G8E 
2919 DATA AB,21,99,93,CD,BF, AB, 21,327, FEB 
2929 DATA 99,93, ED, 5B, 77, AD, ED, 4B,3A7,ÎFE 
2939 DATA 79,AD,3A,87,99,CD,98, BC, 388, 92B 
294ÿ DATA D2,99, AB, CD, 8F, BC, D2,99,599, f9F 
2959 DATA AB,11,98,93,CD, A3, AB, D2, SAC, 97B 
2964 DATA 99, AB, DD, 21,99, AD, 3A, 98, 389, 92F 
2978 DATA AC,FE, 99, 28,94, DD, 21, DO, 344, 969 
2988 DATA AD, 34, 19, AC, 47,DD, 7E,93,351, /B5 
2909 DATA 3C,16,90,5F,21,99, 09, 19, 0EB, #00 
3999 DATA 19,FD,23,DD, 7E,99,5F,AF,399,QCE 
3919 DATA ED,52, 30, 39,FB, 19,3D,57,353,8F1 
3928 DATA DD, 7E, 9D,82,57,3A,98, AC, 327,815 
3939 DATA 5F,DD,7E,15,4F, 7D,24,91,359, BB 
3849 DATA 39,FC,25,DD, 7E,9F,84,4F,3BE, JAC 
3959 DATA 21,99,93,DD,E5,C5,D5,E5, 465, FD 
3968 DATA DF,A7, AA, 2A, 75, AD, 22,15, 3B3, fB3 
3979 DATA 93,21,99,99,D1,D5, 96, 43,213, 9B3 
3989 DATA C5, 14,96,99,4F,99,13,C1,211,8F1 
3999 DATA 19,F6,22,43,93,E1,D1,C1,3E1,8F8 
3198 DATA D5,DF, AA, AA, D1,DD,E1,DD,674,89F3 
3119 DATA 7E,6D,57,DF, AD, AA, C3, C3, 49E, QDE 
3128 DATA 91,09,00,99,00,90,00,08,001,001 
3138 DATA 09,99,00,00,00,00,99, 00,999, 689 
3149 DATA 99,99,00,00,00,00,00,00,000,000 


ES 


BRICOLAND 






ennuyé : il doit rentrer chez certaine. 

lul mais des obstacles étran- 
ges se dressent sur sa route. La seu- 
le aide possible, c'est vous : en dé- 
plaçant les objets, vous allez facili- 


ter le cheminement de Billy, ou, au 


N otre héros, Billy, est vraiment 


&hico - BAS 
IA REM sssretienesenentensee »YQ 
28 REM : ! DJ 
38 REM PRESENTAT ION : )TZ 
4ÿ REM : facultative ; »RZ 
54 REM : ù )EB 
69 REM ssssssesseseeesesseste DU 


79 DIM JE(18,4):RESTORE 128:FOR H=1 TO 18:F0R G=1 TO 4: DEC 
READ A:JECH,G)=A:NEXT G,H 

88 EVERY 19,2 GOSUB 629:REH la musique )F4 
9ÿ MODE 1:INK 8,9:1NK 1,3:INK 2,24:INK 3,6:BORDER 9:B=2 KM 
:GOSUB 45$ 

198 ORIGIN 68,189:FOR H=1 TO 18:X=-JE(H,1):Y=JECH,2):L=J DVF 
ECH, 3) :P=JE(CH, 4) 

119 GOSUB 158:NEXT:GOTO 298 >NQ 
128 DATA 16,16, 19, 3, 16, 32, 2,2,96,64,4,2, 16, 48,2,3,116,8 D2T 
8,2,3,16,64,2,3,116, 194 

138 DATA 2,3,16,88,19,2,16,96,2,3, 116,136,2,3,16,112,2, DYV 
3,116,152,2,3,16,128,2 

148 DATA 2,96,169,4,2,16,144,19,3,-16,-199,5,2,378,-59, DAT 


Claude LE MOULLEC 
Valable pour CPC 464 - 664 - 6128 





contraire, le précipiter vers une mort 


Chargement : tapez et sauvez les 
fichiers Basic BRICO.BAS (facultatif) 
et BRICLAND.BAS. 

Entrez et sauvez les programmes 





BRIDATAI.BAS et BRIDATA2.BAS. 
Lancez ces deux programmes avec 
RUN et vous obtiendrez les fichiers 
SPRILAND.BIN et ROUTLAND.BIN. 


Pour démarrer le jeu, faire RUN «BRI- 
CO» ou RUN «BRICLAND» 


" 9,1,259,-159,3,3,0,9,0,9 


159 1F L<11 THEN GOSUB 179 ELSE N=L:L=19:X=X+(-18)#19: DUT 
Y=Y+(W-19)#4:GOSUB 179:L:W-19:X=X-(W-19)418:Y=Y-CW-19)# 
4:1F L=ÿ THEN RETURN ELSE GOSUB 159 

169 RETURN )2C 
179 FOR A=9 TO 16 STEP 2:PLOT X-Bx8,Y+B#6+A,P:DRAUR 84B >NA 
,-6#B:DRAUR L#19,L+4:NEXT:FOR A=9 TO B STEP @.1:PLOT X- 
A48,Y+AX6+18:DRAUR 194L, 4xL:NEXT 

189 FOR A=1 TO L:FOR C=1 TO B:PLOT X+Ax19-4-BxC,Y+Cx6+A >AQ 
#4+19,1+(P=1):DRAR 4,D:DRAWR 9,2:DRAUR -6,8:DRAUR 9,2: 
DRAUR 2,2:DRAUR 4,9:DRAUR 9,-2:NEXT C,A 

199 PLOT X,Y:DRAUR 19%L, 4#L:DRAVR #,18:DRAUR -8xB,6*%B:D )GF 
RAUR -19%L, -4#L:DRAUR 9,-18:DRANR 84B, -6xB:DRAUR 9, 18:D 
RAUR -8xB,6xB:DRAWR 84B,-6xB:DRANR 194L, 4xL:RETURN 


289 ORIGIN 9,9:OUT &BC99,6:OUT &BD89, 24 >FC 
219 a$="RICOLAND":X=229:y=324:GOSUB 224:G0T0 389 )RM 
228 a=LEN(a$) :a8=at8 >Ny 
239 LOCATE 1,25:PEN 1:PRINT a$;:PEN À >DD 
248 tx=x:y2=14 >BB 
259 FOR f=1 TO 8:x2=9:FO0R g=1 TO a8 )M 


268 1F TEST( x2,y2)=1 THEN PLOT x+4,y,2:PLOT x+4,y-2:PL MG 
OT x,y-2:PLOT x+2,y-2:PLOT x+4,y-4:PLOT x+2,y-4:PLOT x, 
y-4:PLOT x-2,y+#2,3:PLOT x,y+2:PLOT x+2,y+2:PLOT x+2,y:P 
LOT x-2,y:PLOT x,y 

219 x=xt6:x2=x2+2 >MB 
288 NEXT g:y=y-6:tu=tx:y2=y2-2:x=tx:NEXT f >NB 


299 LOCATE 1,25:PRINT SPACES (LENCAS) ) : RETURN 

389 PEN 2:LOCATE 19,12:PRINT "BY" 

319 a$="LHC SOFTWARE" :y=19B:ENC-3:t=9:GOSUB 338 

329 y=96:ENC=2:t=1:GO0SUB 339:G0T0 438 

339 A=LEN(AS):P=AX8:IF t=9 THEN 359 

349 x=(646-Ax32)/2:G0T0 369 

358 x=(639-A#32)/2 

369 PEN 2:LOCATE 1,25:PRINT A$;:PEN 1 

379 tx=x:y2=14 

389 FOR i=i TO 8:x2=8:FOR j=1 TO P 

399 1F TEST(x2,y2)=2 THEN PLOT x,y,ENC:PLOT x,y-2:PLOT 
x+2,y:PLOT x+2,y-2 

449 x=xt4:x2=x2+2:NEXT j 

419 y=y-4:y2=y2-2:x=tx:NEXT i : RETURN 

429 NEXT i:RETURN 

438 LOCATE 1,25:PRINT SPACES(A):OUT &BC9S,6:OUT &BD9,2 
5 

44g MHILE INKEY$="":WEND:GO0TO 529 

459 FOR f=1 TO 29:Q=(RND+569)+48:W= (RND#358) +32 

469 PLOT Q,W+39,9:DRAN Q,W-39:PLOT Q+52,W:DRAW Q-52,4:P 
LOT Q+8,W+4:PLOT Q-8,W+4:PLOT Q-8,W-4:PLOT Q+8,4-4 

4179 PLOT Q+4,W+B:DRAN Q+4,W-8:PLOT Q-4,W+B:DRAW Q-4,W-8 
:PLOT Q+16,W+2:DRAU Q-16,W+2:PLOT Q+16,W-2:DRAW Q-16,W- 
2:PLOT Q,N+28,#:PLOT Q,W-28:PLOT Q+48,W:PLOT Q-48,W 


488 PLOT Q,W+6,19:DRAW Q+12,U:DRAW Q,W-6:DRAW Q-12,U:DR 

AU Q,W+6:PLOT Q,W+18:DRAU Q,W-18:PLOT Q+32,W:DRAN Q-32, 
W:PLOT Q,W+16,9:PLOT Q,W-16:PLOT Q+28,W:PLOT Q-28,W:PLO 

T Q,W+19,11:DRAN Q,W-19:PLOT Q+16,W:DRAW 0-16, 

498 PLOT Q,W+4,12:DRAW Q,W-4:PLOT Q+4,W:DRAW Q-4,W:PLOT 
Q+4,W+2,11:PLOT Q-4,W+2:PLOT Q-4,W-2:PLOT Q+4,4-2 


599 NEXT:FOR F=1 TO 199:PLOT RND4649, RNDx384+16, 2:NEXT 


519 RETURN 
529 BORDER 9:MODE 1:1NK 9,8:INK 1,26:1INK 2,13: INK 3,15 


539 LOCATE 16,2:PEN L:PRINT "BRICOLAND":LOCATE 16,3:PEN 


54ÿ PEN 2:LOCATE 1,5:PRINT" 
ILLY THE KlDrentre chez lui." 

559 PEN 2:LOCATE 1,8:PRINT" Malheureusement le chemi 
n du retourest parsemé d’embuches et BILLY qui esttre 
s fatigués ne regarde pas ou il netles pieds." 

569 LOCATE 1,13:PRINT" Votre tache sera de lui apla 
nir lesdifficultés rencontrées sur son passage." 

574 LOCATE {,16:PRINT" Pour cela vous utiliserez le 

Téléporteur et les éléments dudécor nis à votredisposit 
ion." 

589 LOCATE 1,2#:PRINT" La prise et la restitution des 
objetsse fait en appuyant sur la touche {FIRE)ou la to 
uche <COPY)>" 

594 LOCATE Î1,24:PEN 3:PRINT "JOYSTICK ou CURSEUR" 

699 LOCATE 32,25:PEN 1:PRINT "<ENTER)" 

619 WHILE INKEY$="":WEND:RUN "BRICLAND" 

629 READ d:IF d=-1 THEN RESTORE 654:G0T0 629 

639 IF d=8 THEN v=8:d1=8 ELSE v=1:d1=d 

649 SOUND 17,d,29,15xv:SOUND 19, d1,28, S:RETURN 

659 DATA 476,9,478,9,478,9,478,#,478,596, 478,426, 379,9, 


Apres bien des aventures B 


>pa 7 379,9,319,338, 319,239 


>AG 
>TK 
>EH 
>BP 
UV 
>LR 
»>DQ 
>BF 
>ZH 
>ZE 


)TA 
»>GK 
NX 
AK 


)BJ 
>PT 
>YD 


)JY 








669 DATA 199,9,199,8,213,199,179,253,213,9,213,9,319,33 >XF 
8,319,253,213,8,213,8 

679 DATA 179,198,179,127,186,8,186,9,113,196,95,127,119 >XB 
,9,119,8,95, 186,95, 89 

689 DATA 89,8,88,9,71,88,89,95, 186,8, 196,9,196,113,196, XV 
95, 89, 9, 89,8,88,89,95 

699 DATA 186,119,9,119,9,119,127,119,186,95,9,95,9,89,9 >UG 
5,196,119,127,8,9,9 

789 DATA 142,9,8,8,159,8,9,9,179,9,0,8,198,9,9,9,213,9, >BN 
4,9,-1m 


BRICLUND . BAS 


LA REM  sessssrosegsesesonecesss )ZE 
28 REM )EB 
38 REM BRICOLAND >PP 
4g REM )ED 
58 REM BY )BA 
69 REM DEF 
78 REM CLAUDE LE MOULLEC >ND 
89 REM 83 RUE JOLIOT CURIE : >XL 
98 REM 22428 PLOUARET )TA 
199 REM : TEL 96 38 94 24 >QH 
119 REM : TEL 96 38 94 24 DJ 
128 REM : KG 
139 REM sssssisessenesenesees >ZR 
149 MEMORY &7FFF >LA 
159 LOAD "SPRILAND", 48999 JUF 
168 LOAD "ROUTLAND", &9D2ÿ UV 
179 REM ssssssssssssessescesse >YK 
188 REM : | )LA 
199 REM : VARIABLES DE BASE >WD 
288 REM : )KD 
219 REM ssssossesesesesseueses )YE 
228 DEFINT A-Z:CALL &BBFF:MODE S:BORDER 8 »JC 
239 RESTORE 249:FOR H=9 TO 15:READ A:INK H,A:NEXT )RB 
248 DATA 9,26,1,2,4,16,6,3,18,9,17,13,29,1,24,15 >MQ 
259 DEF FN PO(X,Y)=&C999+(Y-1)4169+(X-1)*4 >HN 
268 DEF FN Iplx,y)=4C999+(y-1)#89+(x-1)x2 >GV 


219 DIM SP(4B):FOR H=8 TO 39:SP(H+1)=482D8+(H#64):NEXT: DNR 
SP(4ÿ)=LA4OO 

289 DIM JE(28,12):DIM 2Z(59):FOR H=1 TO 28:READ A:Z(H)=A DK 
:NEXT 

299 DATA 8,48,48,1,1,19,11,1,12,13,14,1,15,28,21,22,1,3 DAC 
6,1,16,49,1,48,1,1,9,0,1 

389 ENT 3,198,-59,39:ENV 2,19,-1,2:ENT 2,19, -2,2:ENV 3, DDY 
5,-2,19 


319 ENV 15,1,5,1,18,1,4,5,-3,1:ENT 14,49,-19,1 XXE 
328 ENV 14,1,5,1,19,1,4,5,-3,1:ENT 15,5,-29,1,68,19,1 » DTN 
339 ENV 1,198,3,1:ENT 1,198,2,2:WINDON #1,1,29,9,25 RF 
349 Y=19:VIE=5:TA:1 >PB 
359 REM sessscsessseeseeseesse >TK 
369 REM : >LA 
3179 REM :  DECOR DE BASE )RJ 
388 REM : >LC 
399 REM :sssssresessesensence: »YP 
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489 POKE LAB1A, 14:POKE &AD1F,13:CALL RABBD, FN po(5,4),& BK 
8842 

419 CALL LASBD,FN po(17,3),&8BA2 »YG 
429 POKE &AB1A,22:POKE &ABIF,4:CALL LAGD,FN pol6,3),&B AW 
289 

439 POKE LASIA,18:POKE &ASIF,9:CALL &ABDD,FN po(i,2)+88 >DV 
, 88000 

449 POKE &AS1A,17:POKE &A9IF,8:CALL &AGOD,FN po(12,3),k >BQ 
8158 


459 POKE LADA, 16:POKE &ASIF, 4 >XB 


469 a$=" SCORE VIE TAB HIGHT “:ZL=1: DYX 
YLEL:CER=2:G0SUB 589 
419 a$=" 59909 999 559 99998 “:ZL=1: >UV 


YL=2:CER=2:GOSUB 598 

489 PLOT 16,369,6:DRAN 622, 369:PLOT 16,354:DRAW 622,354 PV 
:PLOT 12,358:DRAU 29,358:PLOT 12,356:DRAW 29,356:PLOT 6 
26,358:DRAW 618,358:PLOT 626,356:DRAW 618,356 


499 GOTO 658 YAA 
599 A$=UPPERS(A$):FOR T=1 TO LEN(AS):PS=CASC(MIDS(AS$,T, DHU 
1)))-48 
519 IF PSCY THEN PS=43 >QH 
528 CALL &9D28,FN LP(ZL, YL)+(T#2)-cer, &9D4ÿ+(PS#{6):NEX MC 
T:RETURN 
539 CALL &A939,FN P0(18,6),SP(28):a$="LISEZ ALI GATOR D DER 
UNDEE <<< LE FANZINE" 
549 ZL=2:YL=19:G0SUB 598:SOUND 1,198, -2098,5,9,1,19:FOR )WZ 
T=1 TO SYGB:NEXT T 
559 FOR H=1 TO 79:POKE &AGIF,19:CALL &ADBD,FN PO(1,5)+H )ED 
,&85D8:FOR T=1 TO 2:NEXT T 
569 POKE &ADIF,1:CALL &AÏGD,FN PO(1,5)+H,SP(1):NEXT H:P LB 
OKE &A91F,4 
579 CALL &ASBD,FN PO(1,5)+79,SP(1):CALL &AGBD,FN PO(1,5 DJY 
)+74,SP(1) 
589 CALL &AGBD,FN PO(1,5)+78, SP(1):CALL &A938,FN PO(18, HN 
6),SP(28) 
59ÿ CALL &BCA7:RETURN )QX 
699 REM srrssrssesreesestente: )YH 
619 REX : XKJ 
629 REM : BRANCHEMENT TAB NX 
639 REX : >LA 
649 REM sossssseesseeeneensent »YM 
659 ON ta GOTO 669,679,689, 698, 799, 719, 728,739, 749,759, )AA 
769,770, 780,190,899,819 
669 Y=19:RESTORE 2679:G0SUB 879:GOSUB 539:G0T0 1989 )VG 
679 RESTORE 2799:GOSUB 879:G0T0 1989 )DF 
689 RESTORE 2738:G0SUB 879:G0T0 1989 )DK 
699 RESTORE 2769:GOSUB 879:G0T0 1989 >DP 
789 RESTORE 2798:G0SUB 879:GO0T0 1988 »DJ 
719 RESTORE 2639:G0SUB 874:G0T0 1989 )DE 
729 RESTORE 2878:G0SUB 878:G0T0 1988 >DK 
738 RESTORE 2919:G0SUB 879:G07T0 1989 >DF 
749 RESTORE 2958:G0SUB 879:G0T0 1988 )DL 
759 RESTORE 2999:G0SUB 879:G0T0 1989 )DR 
769 RESTORE 3938:G0SUB 879:G0T0 1988 >DC 
779 RESTORE 3979:GO0SUB 878:G07T0 1989 >DH 
789 RESTORE 3418:GO0SUB 879:GO0T0 1988 >DD 
799 RESTORE 3159:GO0SUB 879:G070 1989 >DJ 
889 RESTORE 3198:G0SUB 879:GO0T0 1984 )DE 
819 RESTORE 3239:GO0SUB 879:G0T0 1989 >DA 


| 





| 
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829 REM :sssssreseeneeeentente >YX 
839 REM : LC 
849 REM : DESSIN TABLEAU JUN 
859 REM : )LE 
068 REMsssiseietisesnnesete )YR 
879 CLS H1:ERASE je:DIM JE(28,12) DA! 
889 FOR H=1 TO 7:READ A$:IF LEFTS(A$,1)="X" THEN 928 TT 
898 FOR G=1 TO 29:B$=MID$(A$,G, 1) :B=ASC(B$)-48 DM] 


989 CALL &AGGD,FN PO(G, 13-H),SP(B):JE(G,13-H)=Z(B):NEXT >BC 
G 

919 GOTO 94ÿ 

929 B$=RIGHTS(A$,1):B=ASC(B$)-48:1F B=1 THEN 949 

938 FOR G=1 TO 29:CALL LASBD,FN PO(G,13-H),SP(B):JE(G, 1 
3-H)=Z(B):NEXT G 


>ZK 
>PN 
>UJ 


94ÿ NEXT )EJ 
959 POKE RAA, 49:READ AB:FOR H=1 TO AB:READ A,B >PU 
968 CALL &AGAD,FN PO(A,B)+89, &B1EY >AK 


974 JE(A,B)=49:JE(A,B+1)=49:JE(A,B+2)=48:NEXT:POKE &AS1 
À,16 


>EG 


989 D=18:E=6:CALL &Aÿ39,FN PO(D,E), SP(28) :TF-28 >PC 
998 CALL &AGGD,FN PO(1,Y),SP(29):S6:1:X=1:AC=29:PT=1 »XD 
1898 ADD=FN PO(X,Y):FOR H=1 TO 12:JE(1,H)=1:NEXT >RH 
1919 Y1=Y:FIN=Y:GAN=D:RT:8 2H 
1928 GOSUB 2239:GOSUB 2189:FEU=9:TENU=8 : RETURN >RK 
1939 REM sesrsssssreesesenense )YP 
1849 REX : : >RD 
1958 REM : ROUTINE PRINCIPALE : >2M 
1968 REM : ! >RF 
1979 REM sistersesssseeenenees >yU 


1988 EVERY 19 GOSUB 1229:1F TA<>16 THEN EVERY 66,1 G0S 
UB 2154 


)DG 


1998 IF FIN=1 THEN 2489 >Qh 
1199 IF INKEY(D)#INKEY(72):9 AND Ed5 THEN 1678 >MC 
1118 IF INKEY(2)#[NKEV(73):9 AND E(12 THEN 1728 )MZ 
1129 IF INKEY(8)#INKEY(74)=8 AND D)1 THEN 1768 >MK 
1138 IF INKEY(L)#INKEY(75):9 AND DC29 THEN 1899 >M2 
1149 IF INKEY(9)*xINKEY(76):9 THEN 1889 )E 
1158 IF INKEY(47)=8 THEN FIN=1 XV 
1169 GOTO 1999 NE 
LÉTR REN nee ne ee nee nee JW 
1189 REM : >RJ 
1198 REM : ALGORITHME BILLY »XG 
1299 REM : )RB 
L21D REM sons ésresennn >YP 
1229 DI:0N SS GOTO 1249,1379, 1459, 1538 )DR 
1238 REN ::: A DROITE ::: >RK 
1249 IF X>19 THEN FIN=1:GAN=1:RETURN DEF 


1258 1F JE(X+1,Y)=49 THEN 1264 ELSE IF JE(X+1,Y)9 THE 
N ASS=1:GO0T0 1348 

1268 IF PT:{ THEN ACC:29:G0T0 1289 ELSE IF PT=2 THEN S0 
UND 1,399,3,1,1,1,15:ACC=:39:G0T0 1288 

1278 IF PT:3 THEN ACC:29:G0T0 1289 ELSE IF PT=4 THEN S0 
UND 1,399,3,1,1,1,15:ACC=31 

1289 CALL &AB39, ADD, SP (AC): ADD=ADD+1 :CALL &A938, ADD, SP( >EG 
ACC) 

1299 AC=ACC:PT=PT+1:1F PT=5 THEN X=X+1:PT=1:GO0T0 1318  DYT 
1399 EI :RETURN >FG 
1319 IF JE(X,Y+1)=8 OR JE(X,Y+1)=49 THEN SS=3:ASS=1:El: DHY 
RETURN 


>RA 


DUT 


>GH 





1329 1F JE(X,Y+1)022 THEN 1389 ELSE CALL &AG2D,FN polX LR m 1559 CALL &AD39, ADD, SPCAC):CALL &ABSB, ADD+&1FB, SP(29): >MX 





,Ÿ+1),sp(26) E]:RETURN 
1338 FOR t=1 TO 298:NEXT:CALL &ABOD,FN po(X,Y+1),sp(27) DXF | 1568 CALL RA938, ADD+41FB1, SP(29) :ADD=ADD-78:CALL &A939, >LG 
tfins{tEl:RETURN ADD, Sr(38) 
1348 IF JE(X,Y+1)=8 OR JE(X,Y+1)=49 THEN SS=3:ASS:1:El: DHB | 1579 SOUND 1,388,3,1,1,1,15:EI :RETURN )EQ 
RETURN | 1589 CALL &A938, ADD, SP(39):CALL &A39, ADD+&1FB1, SP(29): >LY 
1358 IF JE(X+1,Y)=19 THEN SS=4:EI:RETURN ELSE SS=2:EI:R DHJ El RETURN 
ETURN 1598 CALL &AB38, ADD+41FB1, SP(29):ADD=ADD-78:CALL &Aÿ38, DLL 
1368 REN ::: À GAUCHE ::: RL ADD, SP(31) 
1378 IF JE(X-1,Y)=48 THEN 1389 ELSE IF JE(X-1,Y)C@ THE DUA 1698 AC=31:X=X+1:Y=Y-1:SS=1:MH=9: SOUND 1,399,3,1,1,1,15 DPB 
N SS=1:El:RETURN :EL RETURN N 
1388 IF PT={ THEN ACC=33:G0T0 1489 ELSE IF PT=2 THEN SO >WG 1619 REM srétortigeneenserenees JYU 
UND 1,398,3,1,1,1,15:ACC=34:G0T0 1499 | 1629 REN : ! RH 
1398 IF PT=3 THEN ACC:33:G0T0 1489 ELSE IF PT=4 THEN SO >GD | 1638 REM :  DEPLACE CURSEUR : DWP 
UND 1,398,3,1,1,1,15:ACC=35 1649 REX : ! >RK 
1499 CALL &A939, ADD, SP (AC) : ADD=ADD-1 :CALL &Aÿ38, ADD, SPI DEC 1668 REM sosssssessesceesteuses )YY 
ACC) 1669 REM ::: VERS LE HAUT ::: VD 
1418 AC=ACC:PT=PT+1:1F PT=5 THEN X=X-1:PT=1:GOT0 1438  DYR 1679 IF JE(D,E-1)=9 THEN 1609 )VZ 
1689 IF JE(D,E-1)9 AND JE(D,E-1)<29 THEN 1698 ELSE 199 >UH 
1429 EI:RETURN DK | ÿ 
1439 IF JE(X,Y+1)=8 OR JEUX,Y+11=49 THEN SS:3:ASS:2:El: >UL 1698 CALL &AB3$,FN PO(D,E), SP(TF):E=E-1 )FC 
RETURN ELSE 1329 1799 CALL &AY3B,FN PO(D,E), SP(TF):GOTO 1999 KN 
144ÿ REN ::: CHUTE ::: >PR 1718 REN ::: VERS LE BAS ::: DUC 
1459 CH=CH+1:1F INT(CH/2)=CH/2 THEN 1489 GA 1729 IF JE(D,E+1):9 THEN 1749 JUN 
1468 CALL &AB39, ADD, SP (AC): ADD=ADD+89:CALL &Aÿ39, ADD, SP FX 1738 IF JE(D,E+1)>9 AND JE(D,E+1)<28 THEN 1749 ELSE 199 >VD 
(ACC) ÿ 
1479 EI :RETURN )GE 1748 CALL &AB39,FN PO(D,E),SP(TF):E=E+1:G0TO 1799 RP 
1489 CALL 8&A93, ADD, SP(AC) : ADD=ADD+89:CALL &A939, ADD, SP F2 1758 REM ::: À GAUCHE ::: >RP 
(ACC) 1768 IF JE(D-1,E)=9 THEN 1789 )VZ 
1499 Y=Y+1:1F JE(X,Y+1)=49 THEN 1518 ELSE IF JE(X,Y+1)= DND 1778 IF JE(D-1,E)>9 AND JE(D-1,E)<29 THEN 1789 ELSE 199 >WH 
22 THEN CALL &KA@OD,FN polX,Y+1),sp(26):G0TO 1339 ÿ 
1598 IF JE(X,Y+1)>8 AND JEUX, Y+1)<49 THEN SS=ASS:CH=8 UN 1788 CALL &A39,FN POCD,E),SP(TF):D=D-1:G0T0 1749 )RU 
1519 EI :RETURN >FK 1799 REM ::: À DROITE ::: "RI 
1529 REN ::: MONTER ::: )QF 1899 IF JE(D+1,E):9 THEN 1829 VE 
1539 IF JE(X+1,Y-1)C09 THEN SS=2:EI :RETURN )LC 1819 IF JE(D+1,E)>9 AND JE(D+1,E)<29 THEN 1828 ELSE 199 >VB 
1548 MH=MH+1:0N MH GOTO 1558, 1568, 1584, 1599 JU mp 


allo 


CPC infos 


Attention, notez bien ce qui suit : 
Dès le mois de septembre, tous les mercredis 





de 14 h à 17 h, la rédaction se tiendra à votre 
disposition au 99 52 98 11 pour tous renseigne- 
ments techniques. En dehors de ce créneau les 
réponses techniques se feront par courrier (n’ou- 
bliez pas de menticnner votre adresse et joignez 
un timbre pour la réponse) ou bien par Minitel 
sur le 3615 code : MHZ. 








1625 CALL &AB38,FN PO(D,E), SPCTF):D=D+1:G0TO 1789 )RL 
1839 REM ssssscesssseceseseenet »YY 
1848 REN : ! >TB 
1859 REM : PRISE/LACHER OBJET : )2E 
1868 REM : ! >TD 
1879 REM ssssssssssessssessnese »YC 
1888 IF FEU=1 THEN 1959 >QD 
1899 1F JE(D,E))9 AND JE(D,E)<28 THEN 1999 ELSE 1998 >RY 
1998 CALL &AB39,FN PO(D,E), SPCTF):CALL &AB38,FN PO(D,E) >GV 


» SP(24) 
1919 SOUND 1,698,18,6,9,3:CALL &A951,FN PO(D,E):TF=49:T NL 
ENU=JE (D, E) 


1928 VHILE INKEY$O"":WEND:FOR T=1 TO 58B:NEXT:JE(D,E)= >BC 
ÿ 

1938 FEU=1:G0T0 1999 >PB 
1949 REM ::: LACHER ::: )qu 
1958 IF TENU=16 THEN 2929 ELSE IF EOY THEN 1989 ELSE ! >LG 
F D=X THEN 1998 

1968 1F SS=1 AND D=X+1 THEN PRINT CHR$(7):GOTO 1998 TV 
1979 IF S5=2 AND D=X-1 THEN PRINT CHR$(7):G0TO 1999 TZ 
1988 IF JE(D,E)C8 THEN 1999 >UQ 


1999 FEU=9:SOUND 1,699, 19,6,9,3:CALL &Aÿ39,FN PO(D,E),5 DDR 
P(24) 

2496 CALL kAB36,FN PO(D,E), SPC28):TF=28:JE(D,E)=TENU:TE DFE 
NU=ÿ 

2819 VHILE INKEY$O"":WEND:FOR T=1 TO 5SD:NEXT:GOTD 199 >BX 
ÿ 


2828 DI:FOR H=D-1 TO D+1:CALL &ABOD,FN POCH,E),SP(26)  >VZ 
2939 IF H=X AND E=Y THEN FIN:1 : )XE 
2848 NEXT H:FOR T=1 TO 299:NEXT T:FEU=B:TENU=9:TF=28  »XY 
2859 FOR H=D-1 TO D+1:CALL &A99D,FN PO(H,E),SP(27) >RK 
2868 JECH,E)=9:NEXT H:SOUND 4,9,-1,15,3,,39:FOR T=1 TO )JJ 
289:NEXT T 

2879 FOR H=D-1 TO D+1:CALL RABQD,FN POCH,E),SPCA):NEXT >XU 
2889 CALL &A9SD, ADD, SP(AC) :CALL &A938,FN PO(D,E),SP(28) >PJ 
:El:GOT0 2918 

2ROS REM sas sesesensenennine )AB 
2199 REM : >RD 
2119 REM : GESTION COMPTEURS )ZL 
2129 REM : ; >RF 
2139 REM ssssssessssesesseeiistt >A4 
2149 REM ::: TEMPS ::: >PG 
2159 rt=rt+1:POKE REBA2+rt,3:POKE &EBA2+rt,3 JME 
2169 IF rt>73 THEN FIN=1:RETURN ELSE RETURN >MN 
QATÉ REN ::: TAB ::: >HP 
2189 A$=STR$ (TA) :A$=RIGHTS(A$, LEN(A$)-1) >HN 


2198 1F TA=9 THEN A$="999":2L=24:YL=2:CER=2:GO0SUB 58B:R >GK 
ETURN 


2298 IF TAD9 THEN ZL=25:YL=2:CER=2:GOSUB 598:RETURN XX] 
2218 ZL=26:YL=2:CER=2:GOSUB 598:RETURN HU 
2229 REM ::: VIE ::: >H2 
2238 A$=STRS$ (VIE) :A$=RIGHT$ (A$, LEN(A$)-1) NJF 
2949 IF VIE=8 THEN A$="999":ZL=15:YL=2:CER=2:GO0SUB 599: HN 
RETURN 

2258 ZL=17:YL=2:CER=2:G0SUB 588: RETURN DHY 
2269 REM ::: SCORE ::: >PU 
2278 A$=STRS(SC) :A$=RIGHT$S (AS, LEN(A$)-1) >HP 
2289 IF SC=8 THEN A$="99998":2L-2:YL=2:CER-2:GO0SUB 599: >HQ 
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RETURN 


2298 IF SC)999 THEN ZL=2:YL=2:CER=2:G0SUB SSB:RETURN  )YD 
2399 1F SC)99 THEN ZL=3:YL=2:CER=2:G0SUB 589:RETURN >XP 
2319 IF SC)9 THEN ZL=4:YL=2:CER-2:GOSUB 549:RETURN NL 
2328 ZL=5:YL=2:CER=2:G0SUB 589:RETURN HA 
2338 REM ::: RECORD ::: >Q6 
234$ A$=STR$ (REC) :A$=RIGHTS (A$, LEN(A$)-1) IX 


2358 IF REC=8 THEN A$-"99989":2L-35:YL=2:CER=2:G0SUB 59 >LB 
ÿ:RETURN 
2369 IF REC>999 THEN ZL=35:YL=2:CER-2:GOSUB 59:RETURN AD 


2379 IF REC)99 THEN ZL-36:YL-2:CER=2:GOSUB SSB:RETURN ZX 
2389 IF REC>9 THEN ZL:=37:YL=2:CER=2:G0SUB S9S:RETURN DŸR 
2399 ZL=38:YL=2:CER=2:GOSUB 599:RETURN HG 
2495 FOR H=9 TO 3:MU=REMAIN(H) :NEXT )DX 
2419 REM sssssgessesessessenses DYT 
2428 REX : >RG 
2439 REM : FIN DE PARTIE >TF 
2449 REX : JR] 
ZASD'REN rene nee entente »YX 
2469 1F GAN=8 THEN 2539 )QF 
2479 FOR H=1 TO 15:SOUND 1,hx59, 14,5:NEXT >HJ 
2485 FOR H=RT TO 74:POKE &EŸA2+H,3:POKE &EBA2+H,3 >RH 


2499 SC=SC+1:NEXT:GOSUB 2279:1F SCDREC THEN REC=SC:GOSU HK 
B 2349 


2598 FOR H=1 TO 74:POKE &EBA2+H,#:POKE REBA2+H,D:NEXT NZ 
2519 TA=TA+1:G0TO 658 >PT 
2529 REN ::: PERDU ::: >P2 


2539 CALL &A93B, ADD, SP(AC):CALL &ABYD,FN PO(X, Y),SP(26) >YD 
:FOR T=1 TO 2YH:NEXT 


2548 CALL RABYD,FN POCX, Y),SPC27):FOR T=1 TO 2BB:NEXT WU 
2559 BORDER 26: INK #,26:SOUND 4, 1589, 59, 7,9,9, 19 >PN 
2568 FOR t=1 TO 2989:NEXT t:BORDER B:1NK 9,8 >KA 
2578 SOUND 4,1289,9,0,14, 14:SOUND 4,9,29,2,,,19 NC 


2588 FOR h=1999 TO 1599 STEP 199:SOUND 4,h,39,8,15,15:N >AL 
EXT 

2598 FOR h=1 TO 2949:NEXT :vie=vie-1 )DY 
2698 IF vie=g THEN TA=9:SC=9:VIE=4:GOSUB 2239:GO0SUB 218 >CU 
D:GOSUB 2279:G0T0 2598 


2619 Y=Y1:TA=TA-1:G0T0 2599 JWX 
2629 REM sisssssesesersesestses: >Y4 
2638 REX : )RK 
2649 REM : DATA 16 TABLEAUX JVC 
2659 REX : )TB 
2669 REN sssssssessesesessessse >YA 


2678 DATA X4,"55555555555555515555","111311932222311111 >AD 
j1® 

268$ DATA X1,X1,X1,X1,2,15,8,19,8 >AG 
2699 REM ::: TAB 2 ::: NU 
2199 DATA X4,"55555515555555515555","1113:1111222211111 DZY 
11" 

2718 DATA X1,X1,X1,X1,2,19,8,11,8 Al 
2729 REM ::: TAB 3 ::: JNN 
2139 DATA X4,"55555à55555545555455","111191166611111111 AU 
11" 





2748 DATA X1,X1,X1,X1,2,15,8,19,8 

2759 REM ::: TAB 4 ::: 

2768 DATA X4,"555554555555à5555à55","111191161213132111 
11" 

2778 DATA X1,X1,X1,X1,3,7,8,11,8,19,8 

2789 REM ::: TAB 5 ::: 

2198 DATA "455555444444444h4444","11111115555444444444n 


2899 DATA "11111111111155554444","11111111111111111555" 


2819 DATA "11111111111111116119","X1","X1",8 

2829 REM ::: TAB 6 ::: 

2838 DATA X4,"AEEEEEEEEEEEF4444444","A77777771111F44444 
444" 

2848 DATA "A11111:111119F444444%,"11111111111169FFFFFF" 


2859 DATA X1,11,9 
2868 REN ::: TAB 7 ::: 
2879 DATA "Fà555555555555555à55", "F1111111111111111161" 


2888 DATA "F11LAAAAGAAA:AAA1111","F1111111111111111111" 


2899 DATA 
2999 REN : 
2919 DATA 
Aji1" 

2928 DATA "111111111AAILIIAA111","111111111AADDDDAAI11" 


"F8888889888à11111111","X1","X1",9 
:! TAB 8 ::: 
"X5","111111111AA1111AA111","111111111AA1111A 


2939 DATA 
2949 REN : 
2958 DATA 
Cia" 

2968 DATA "1119111111CCC1111114","1111CCCCC1111111CC1A" 


miit111111<<1111€<111","X1",2,6,9,2,9 
st TAB 9 ::: 
"X5","11111111166666111114","1191111111111CCC 


2979 DATA 
298$ REN : 
2999 DATA 
1111" 

3898 DATA 
1111" 

3419 DATA 
3929 REM : 
3839 DATA 
DDD6" 

3449 DATA 


"1111111111CCCCC1111A","X1",9 
st TAB 18 ::: 
nx4", "4444444555 SESGASESGEN NERFEFEC132231111 


"11111191111111111116","X1","CCCC111111111111 


"111:1111111111111111",1,18,8 
ts: TAB 11 ::: 
X4","4554545545à5555555551, "I 11ALAÎLA1A13213 


MALTALALHALAILAILIIAIIN, "ALLATALTALAII1111111" 


3959 DATA 
3868 REX : 
3979 DATA 
444" 

3888 DATA 


mi11<I<11€41€111111111","X19,1,15,8 
st TAB 12 ::: 
"xa","65554444444444444444" 111154444444444ñ4 


"11111544444444444444","11111154444455à54444" 


3999 DATA "111111155555666655à5", "X1",9 

3199 REN ::: TAB 13 ::: 

3119 DATA "X4", "44FEEEEEFEEEEFEEEEEF", "44F11111F1111F11 
111F" 

3128 DATA "44F71117F7111FF1111F","44F77777F7717F77111F" 


3139 DATA "55F11111111111111111","X1",8 


)AD 
NT 
AV 


VV 


»DY 
NX 
>XP 


V 


wQ 


)JH 
NT 
)DE 


LA 


XV 


)LQ 
NY 
)XB 


LA 


XQ 


XKP 
>NU 
)CZ 


V 


YG 


>MR 
NZ 
)CN 


LA 


XH 


)EG 
>PH 
>DH 


LA 


BX 
>D4 
YNG 
)DG 


WF 


LA 


»JQ 
>PD 
BL 
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)PE 
DXC 


3148 REM ::: TAB 14 ::: 

3159 DATA "444444444444555à5555", "4555554444481111DDDD" 
3169 DATA "9111118888881111111D", "91111181868811111111" >AY 
,"91111181811811111111" 

3178 DATA "91111188888811111111","111111C<<<<<11111111" 
8 

3188 REN ::: TAB 15 ::: 

3199 DATA "5555554444444444à655", "111111 :AAAAAAAAAG131" 


JC 


>PK 
»XB 
3298 DATA "11111119AAAAAAA61111","11111111:AAAAAD11111" BB 
,"1111111119A9:D111111" 

3218 DATA "11111111111D11111111","X1,3,3,9,5,9,18,9 
3229 REM ::: TAB 16 ::: 

3238 DATA "X5","1111323113331111123A","1111111111111111 
111A° 

3248 DATA "1111C1111C11C1C1111A","1111CC111C11C1C1111<" 


RG 
>PF 
BP 


>XQ 
)QL 


3258 DATA "111101111C11C1C11111","1111CCC11<11CC211111" 
,34,9,9,9,16,9% 


BRIDATA A . BAS 


5 MEMORY &YFFF:MODE 1 
7? LOCATE 1,18:PRINT " DATAS DE LA LIGNE CORRECTS":PEN 2 


19 A=&8909:F=&B8B98:L=199:WHILE A<=F:FOR A=A TO A+15:READ C$:K=V 
AL("R"4C$) :S=S+K+65536*(54K)32767):IF AC=F THEN POKE 4,K 
28 NEXT:READ D$:T=VAL("&"+D$):1F T<)S THEN PRINT CHR$(7);"Erreu 
r ligne";L:END ELSE L=L+5 

25 LOCATE 28,19:PRINT L-5:WEND 

189 DATA 60,09, 60,00,69,09,09,09,00,99,90,00,00,06, 00,90, 0090 
195 DATA 09,09, 90,00,00,09,00,06,00,00,00, 90,99, 00,09, 09,090 
119 DATA 99,99,00,90,00,09,09,09,04,0C, 90,09,90,99,04,98,01C 
115 DATA 99, 48,64,96, 00, 00,00, 48,84,94,C9,C0, 08, 90,99, D4,934C 
129 DATA C9,84,8C,C9, C9, 84, 99,09, 48,C9, C9,CB,C8,C9, 84,90, 0B2C 
125 DATA 99,48,C9,C9,C9,C8,C8,C8,4C, 98,94, C9, C9, CD, 48, C9, 1354 
139 DATA C8,48,84,89,48,C9,C9, 84, C9, 9C,C9,CB,98,C8,C8,C8, 1BB8 
135 DATA C9,48,C9,C9, 84,98, 48,C9,84,C8,48,C6, 48, 8C, 99, 94,2278 
149 DATA CS,48,48,C9, 8C, CS, 08,09, 99,48, 48,C9,64,94,684,99,27B$ 
145 DATA 96,09,64,04,84,64,00,08, 09,00, 09,00, 99, 60,06, 99, 28D8 
159 DATA 89,90,09,09,09,09,00,04,9C,09,00,09,00,08, 99,06,28ES 
155 DATA 99,94, 08,09, 48,84,08,99,09,96,99, 06,00, 99,48, 84, 2ABC 
169 DATA 84,C9,C9, 96, 80,09,09,06,00,99,94,C8,C8,84,C8,C8, 2FAB 
165 DATA 84,99,99,96,99,99,09,48,C9,C8,C8,C9,C9, 84,09, DD, 34B9 
179 DATA 59,99,99,99,48,C9,C9,C9,C9,C9, C8, 0C, 98, ÿ9, DC, 8, 3998 
175 DATA 99,94,C9,C8,C9,48,C8,C8, 48, 84,94, C9, 96, 84,08, 48, 3F98 
189 DATA C9,C8,84,C9, 8C, C9, CH, 48, CD, 98, 48,84,C8,C8,CB,C8, 4BRC 
185 DATA 48,C5,C9,84,C9,84,84,4B,C8, 48, C9, 84, C9, 4B,C9,48,5174 
199 DATA 48,C9,48,C9,48,C9,B4,C9, 48,48, C9, 9C,CB,C8,CD,CH, 5A2C 
195 DATA C9,9C,C9,C8,48,48,C9,84,84,C9,84,5C, 84, 84,99, 48, G69F8 
289 DATA 84,84,84,84, 84,99, 48, 08, 99,98, 98,08, 04,08,99,98,62F8 
285 DATA 69,986,99,94,00,09,09,96,08,96,99, 90, 3F, 09,99, 00,633B 
219 DATA 89,89,89,15,3F, 2A, 99,99, 05,08,69,3F,3F,3F,99,68,6476 
215 DATA 69,96, 90,3F,3F,3F,99,99,98,69, 15,30, 3C, 3C, 24, 89,6626 
229 DATA 89,89,15,3C,3E, 3D, 2A, 99, 99,99, 15, 3C, SE, SD, 9C,98,67F4 
225 DATA 89,94,0C,3F,3F,3B,91,88,99,19,C8,15,3F,11,C9,26,6B7A 
239 DATA 84,62,C9,15,3F, 49,62,91,9C,C9, 62,89, 98,C8,62,91, 7188 





235 DATA 19,C8,91,C9,62,91,C8,91,19,C8,91,91,91,62, C9, 91, 7A35 
249 DATA 48,C9,33,C9, 33,48, CH, 33, 49,91, 62, 33, 26,C8, 91, 22, 809D 
245 DATA 00,CP, 33,91,08, 33,33, 90,09, 11, 22,33, 89, 11, 22, 80, 8328 
259 DATA 89,84, 80,90, 09, 49, 08,09,04,C3, 86,09, 0û,C3, 86,09, 8617 
255 DATA 94,C3,86,90,08,49,86,8,04,C3,C3, 98, 84, C3, C3, 98, 8B57 
269 DATA B4,C3,C3,88, 84,03, C3,86, 49, C3, C3, C3, 49,C3, C3,C3, 941D 
265 DATA 49,C3,C3,C3,C3,C3,C3,C3, C3, C3, C3, 86, C3, C3, 86, 88, 9E9E 
278 DATA C3,C3,C3,88, 49, C3, C3, 86, 49, C3, C3, 86, 04, C3, C3,C3, A7E6 
275 DATA 49,C3,C3,C3,C3,C3,49,C3,C3,C3, 86, C3, C3, C3, 49, C3, B26B 
289 DATA C3,8C,C3,86,C3, C3, C3, 86, 49, C3, C3, 86, 94,86, C3,98, BAFC 
285 DATA 99,50, 4C,98,99,55, AA, 99,08,55, AA, 80,09,55, AA, 09, BEGA 
299 DATA 99,55, AA, 89,09,04, AA, 09,00,55,08,08,08,55, AA,98,C173 
295 DATA 99,55, AA,98,00,5D, AE, 88,84,FF,FF,96, 5D, AE, FF, AE, CB3F 
389 DATA 59,85,29,09,00,05, 3A,09,08,05, 35,38, 00,05, A, 3F, C9BB 
385 DATA 99,05, 10,39, 00,95,08,3F,00,5,08, 90,99, 05, 98, 69, CA43 
319 DATA 89, 14,28,49, 09, 14,08,09, 90,20, 3C, 08,08, 3C, 3C, 68, CB7R 
315 DATA 14,10, 20, 28, 2C, 30, 1C, 3C, 3C, 30, C, 3C, 4D, CF, CF, CF, D969 
329 DATA 4D,8E, FC, CF,CF,CF, CF, 4D, 8E, BA, 45, 4D, CF, 98, 45,40, D7AB 
325 DATA CF,98,45,CF,CF,48,45,CF,09,98,00,00,09, 69,99, C9, DBB! 
339 DATA 69,99, 80,09, 09,09, 00,09, 00,08, 00,08,09,08, 09,09, DB8t 
335 DATA 99,09, 00,00,00,09,08,00,09,90, 00,80, 00, 00,09, 09, DBB! 
349 DATA 69,89,09,00,80,00,00,00,00,00,06,00,09,09, 00,08, DB8! 
345 DATA 09,09, 09,00,00,90,00,00,00,09,00,00, 49,09, 09,89, DBG1 
350 DATA 99,80,99,90,09,00, 00,09, 0,00, 00,09,08,00, 02,09, DBG1 
355 DATA 99,00,00,90,09,09,00,08,00,08, 00,90, 00, 99,09, 80, DBE1 
369 DATA 84,90,99,00, 81,02, 09,02, 1C,06,01,06, 96,93, 99, 09, DBCE 
365 DATA 09,03, 16,93,43, 16,93,03,09,08, 0,00, 09, 89,09, BD, DC12 
374 DATA 98,89,09,09,00,09, 14,09, 08,04, 28,00, 08,80, 3C,D8, DCOA 
375 DATA 80,66, 28,48, 00,82, 14,06,09,82, 09, 00, 00, 82, 09, 09, DEE2 
389 DATA 89,41,89,82,82,41,41,41,41,41,41,98, 41,41, 87,05, E2BB 
385 DATA 27,C3,47,47,03,43,03,03,F4,F4,56, F0, FO, Aa, F4, FO, EBIB 
399 DATA FD, A4,F0,F0,F0,F9,58,F0,FD,F8, A4, Aû,58,F8, DC, 58, FGBR 
395 DATA A4,0C,F0,F8,F,F9,58,F8,F8,F0,58,FO,F4, F0, 56, FD, 0293 
480 DATA F8,F9,58,F0,F9,F0,58,F9,FD,F9, A4,FO,58,F8, A4,58, BEOB 
495 DATA 44,58,58,A4,F8, A4, F8,FD,C3,C3,C3,C3,C3,C3, C3, C3, A1F 
419 DATA BC, 49, 49,49, FD, A4, 44, A4, FD, A4, FO, A4,58,FD,0C,58, 22B6 
415 DATA A4,0C,FO,F0,F8,F0,58,F,F8,F6,58,F8,F9,FO,58, FU, 2EBE 
420 DATA F9,F9,58,F9,F0,F9,56,F0,FD,F9, A4,F9,58,F9, A4,58, SACG 
425 DATA A4,58,58, A4, FD, Aû,F8,F0,09,90,08,0C,90,99,09,CF,418D 
430 DATA 89,80, 89,DF, 09,99, 00,DF, 06,09, 0C, AA, 08,09, CF, AA, 44FA 
435 DATA 09,09,DF,99,09,99,DF,08,90,0C, AA, 99,09, CF, AA, 09, 48E7 
449 DATA 69, DF, 99,99, 89, DF, 09,09, 0C, AA, 09,98, CF, AA, 08,08, 4CD4 
445 DATA DF,09, 09,99, DF,98,09,08,F3,F3,F3,F3,FF,FF,FF,FF,5654 
459 DATA FF, AE, 5D,FF, 60, 5D, AE, 0C, 06,55, AA, 09,09,55, AA, 08, 5C84 
455 DATA 09,55,08,09,00,55,AA,00,08,55, AA, 00, 00,55, AA, 09, 5FDE 
469 DATA 89,55, AA, 09,80,55, AA, 09, 00,04, AA, 00,08,55, AA, 08, 6380 
465 DATA 49,55, AA,99,09,55, AA, 08,33, 33, 33, 22, 33, 33, 33, 88, 6763 
479 DATA 26, 8C, 8C, 88, 26, AC, 8C, B8, 66, CC, CC, 88, CC, CC, CC, 88, 6E6L 
475 DATA 09,98,00,99,11,33,11,33,11,66,11,66, 11, 4C, 11, 4C, 7991 
48 DATA 11,4C,11,4C,11,4C,11,40,11,4C,11,4C,11,4C, 11, 4C, 7379 
485 DATA 11,00, 11,CC, 44,CC, 44, CC, 3F,9F, 9F,9F,9F, 3F, 9F, 7E, 798A 
499 DATA 3F,BF,95,FE, 7F,64, 7F,FE, 9F,95,FF,FE, GA, 7F,FF,FE, 8438 
495 DATA 9F,FF, FF, 7E, ?F,FF,BF, D4, 7F,FF, GA, 7E, 7F,BF,95, FE, BF3B 
589 DATA 7F,64,7F,7E,9F,95,BF,FE, GA, 7F, 7F, 7C, 3F,BF, BE, 7C,Q7CE 
595 DATA 7E,FC,FC,FC, FC, FC, FC, FC,8C, 8C, BC, 8C, BC, BC, AC, 8, 9F9C 
519 DATA 4C,CC,CC, 98, 4C, CC, CC, 98, 4C, 39, 39,98, 4C, 38, 24,98, A718 
515 DATA 4C,64,8C,98, 4C,64,80,98,4C,64,8C, 98, 4C, 64, BC, 98, AEGS 
529 DATA 4C, 24, 80,98, 4C, BC, BC, 98, 4C, CC, CC, 98, 4C, CC, CC, 98, 568 
525 DATA 18,39, 39,39, 39, 39,38, 39,88, 90,80, 11,89, 09,99, 11,B7F2 
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539 DATA 91,33,33,91,89, 99,09, 11,80,09,00,11,68,08,99,11,BR2D 
535 DATA 69,99, 00,11,89,09,09,11,89,00,09,11,69,80,99,11,BD71 
549 DATA 91,33,33,91,89, 99,99, 11,80,09, 08, 11,89,98,08, 11, CDAC 
545 DATA 89,99,09,11,89,09,00,11,99,90,00,00, 00, 14,89, 09, C262 
559 DATA 69,14,689,09, 80, 14,89, 09, 09,68, 3C, 99, 09,68, 3C, 98, C4D2 
555 DATA 99,68, 3C,99,08,68,30, 08, 14,94, 3C, 28, 14,94, 30, 28, C832 
569 DATA 14,94, 30, 28, 14,94, 3C, 28,68, 3C, 30, 3,68, 3C, 3C, 3C, CCB2 
565 DATA 68,30, 30,30, FC, FC, FC, FC, 9,99, 00,00, 00, 00,09, 09,D1BE 
579 DATA 89,80,15,3F, 80,00, 09,00, 00,09, 00,08,55,BF, 2A,00,D328 
575 DATA 99,14, 28,09,00,09,15,FF,BF,90,09,60, QC, 99, 09, 09, D637 
589 DATA 15,9F,3F,24,15,60, CC, 28, 08,09, BF, 3F,3F,9F, 3F,6E, DAQ2 
585 DATA CC,9C, 99,98, FA,9F,FF,FF,FF,FF,CC,FF,3F,80,F5,3F,E46D 
599 DATA 3F,3F,3F,3F,FF,3F,3F,F, FA, 2A, 14, 3C, 30, F, 3F, 9F, E093 
595 DATA 24,99,15,24, 15,3F,9F,6E, 3€, 3C, 40,09, 09, 00,09, 3F, EBBG 
699 DATA 3F, QD, 24,99, 90,09, 09,09,15,9F, 66,09, 08,08, 00,08,ED7E 
695 DATA 09,99, 44,CC, 88, 09,00,09,00,08,00,09, 15, 9F, 2A, 00, EF94 
619 DATA P9,80,00,80,09,09,3F,F,3F,00, 00,00,08,09,00,09,FO51 
615 DATA 09,09,09,99,00,09,00,08,93,03,03,43,53,83,03,C3,F1B9 
629 DATA 93,83,03,03, 43,03, 43,C3,91,03,C3, 82, 41,C3,C3,82,F723 
625 DATA 99,C3,C3,99,00,41,82,08,C3,C3,C3,C3,C3, 80,09, C3, FDFE 
639 DATA 82,11,22,41,82, 3C, 3C, 41,82, 30, 3C, 41, 49,C3, C3, D2, 6498 
635 DATA A4,0C,F4,F0,F4,F8,58,F8,F0,F8,58,F0,F0,FO,58, FD, 1913 
649 DATA F8,F0,58,F9,F0,F9,58,F0,F0,FD, A4,FD,58,F0, 4,58, 1C1B 
645 DATA 44,58,58,A4,F4,A4,F9,F0,DB,F3,CF, F3, 20, 4D, F3, CF, 2752 
659 DATA 2C,CF,CF,CF,2C,CF,CF,CF, 20,CF, CF,CF, 2C,CF,CF,E7, 31CE 
655 DATA 6D, CF, CF, DB, 3C, 3C,9E, 3C, CF, CF, 20, 4D, CF, E7, 20, CF, 3ACE 
669 DATA F3,CF,2C,CF,CF,CF, 2C,F3,CF,CF, 2C,CF,CF, CF, 2C,CF, 457A 
665 DATA CF, CF, 2C, CF, 3C, 30, 30, 3C, 09, E7, A2, 99, 89, CF, A2, 00, 4BFD 
679 DATA P9,E7,F3,F3,89,E7,CF,67,00,E7,CF,67,08,E7,CF,67,5521 
675 DATA 99,E7,E7,F3,00,E7,E7,2,00,E7,FB, 00,00, E7,FB,09,5E16 
689 DATA #9,E7,FB,80,89,51,FF,A2,00,51,FF,A2,08,51,FF,A2,65CE 
685 DATA 99,51,FF,A2,09,51,FF, A2,C8,88, C9, 88, C4, 88, C4, BB, GEDA 
699 DATA CC, 88, CC, 86,89, 09, 09,08, 49, C4, 4h,Cû, 48, CC, 4, CC, 75A2 
695 DATA 44,CC,44,CC, 09, 09,90,09,C9,88, CH, 88, C4, 88, C4, 88, CEA 
786 DATA CC, 88, CC, 88, 09, 99, 09,09, 49,C4, 4, Cu, 4, CC, 48, CC, B3B2 
795 DATA 44,CC, 44, CC, 00,09,08,09,09,00,09, 80,09, 00,99, 09, 85D2 
719 DATA 69,99, 80,09, 00,46, 00,00, 00,00, 88,09, 08,08,88,09,8728 
715 DATA 60,08,88,09,09, 15,60, 49,09, 30, 3C, 60, 09, 3E, 3C, BA, B9AF 
799 DATA 14,3E, 30, 28, 14, 3E, 3C, 28, 14,3E, 30, 28, 98, 3D, 3C, BA, 8CD4 
725 DATA 99,30, 3C, 99,08, 14,28,99,44,00, 44, 00,64, 08, 84,98, BF28 
739 DATA 6, 86, 8C, 48, BC, 29, 8C, 29, 86, 29, 86, 29,92, 28,99, 25, 9458 
735 DATA 39,29, 39,20, 19,00, 19,09,00,44,00, 44,08, 84,08, 84, 06BB 
749 DATA #8, 8C, PB, EC, 29, 8C, 29, 6C, 29,86, 29, 86, 29,92, 28,92,9BE8 
745 DATA 29,38, 29, 90,08, 19,09, 19,49,C0,C9, 89,84, 0C, C, 98, 9FBC 
759 DATA 84,8C, AC, 98, 84, AC, AC, 98, 84,00, 0C,98, 84,00, BC, DB, A21C 
755 DATA 84,00, 0C,98,84,0C, 0C, 88, 09,89, 09,0, C9, 49, CO, CD, ASE4 
769 DATA BC, 49, BC, AC, AC, 49, DC, DC, 0C, 49, 0C, OC, BC, 48, BC, 80, AT74 
765 DATA 90, 49, 0C,0C, 09,90, 09,90,09,80, 49, 09, 48, 48,84, CD, AAGC 
779 DATA 99,89,40,09, 00,89, 49,00, 09,89, 49,06, 48,48, 84, CA, AEBB 
775 DATA 00,89, 40,00, 00,80, 49,90,08,80, 49,90, 48, 48,84, C9, B294 
789 DATA 89,69, 40,09, 80,80, 49,09, 09,89, 49,99, 48, 48, 84, CB, BEAB 
785 DATA 99,88, 40,09,00,08,04,90,08, 44,88, 90, 09, 88, 44, 59, BOBC 
799 DATA 46,9, 80,86, 88, 09, 09, 44, 86, 09, 09, 44, 88,99, 90,40, BC3C 
795 DATA 88,09, 00,44,88,09,08, 44,86,99, 00, 44,88, 90,09, 44, BF6C 
880 DATA 88,99, 80, 44,88, 09, 09, 44,88, 09, 09, 44, 44,08, 05,88, C29C 
895 DATA 09,88, 44,09,06,44,88,65,C8,C9, 9, CO, C9, CO, 09,68, C85C 
819 DATA 30, 30, 28, 3C, 89, 99, 09,99, 45,C9, CB,86, 14, CB, CB, 88, CD8C 
815 DATA 14,30, 3C, 28, 09,99,90,00,C8, C9, 89, C0, CO, CA, 00,68, D?68 
829 DATA 30,3, 89, 3C, 89,09, 06,00, 49,C4, Cb,85, 14,C8,C9,88,D778 


825 DATA 14,30, 3C, 28, 99, 09,09, 99,09, 28,00, 99, 28, 14,99, 3D, D8C5 | 
839 DATA 89,7F,28,3E, 15,3F, 28, 28, 3C, C9, BE, 99, 3D, C8, 3E, 28, DDGB 
835 DATA 6A,6A, 7F,28, 7D,3F,95,BF, 7D,BF,C4,3F,3C, 6A, C4, 3E,E4DS 
849 DATA 14,09,95,BE, 3D, 6A, DS, 28, 14, GA, 3E, 28, 14,3F,BE, 14, EAAQ 
845 DATA 14,3D, 28,99, 28, 3C, 99, 28,09,99,00,06, 14,09, AA, B9,ECEC 
859 DATA 89,EA, 14,09, 89,99, 99, 14,55, 49, 3D, 49,58, 3C, DS, 2A, FUCB 
855 DATA 14,D5,BE, 89, AA, 6A, C8, 89,98,68,95,3E,94, D5, EA, 28,F87C 
869 DATA 69,BE,D5,64,55, 49, 3D, 99, 28,09,09,14,49,55,14,08,FC38 
865 DATA 55,98, 89, 49,09,09,08,09,33, 33,33, 33,22, 99, 99,11,FE44 
879 DATA 22,89,09,11,22, 09,09, 11,22,09,99,11,22,98,98,11,FF19 
875 DATA 22,898,09,11,22,99,09,11,22,98,90,11,22,89,99,11,FFDC 
889 DATA 22,80,89,11,22,09,99,11,22,99,09,11,22,99,08,11,H0A8 
885 DATA 22,99,69,11,33,33,33,33,98,4C,E6, 88,59, A6, CC, 8C, 94B8 
899 DATA 4C,D9,89,E6, A6, 4C, CC, D9, 99, 99, 69,99,98,F1,73,F1,DBAF 
895 DATA 99,F2,F9,98, 09, 7B,F1,09,B7,7B,08,90,B7, 0C, 7B,89,117D 
989 DATA B7,B7,7B,89,89,EF, 96,99, 0D,EF, 96,99,98,6F, 08,98, 15CB 
995 DATA 99, 7B,96,99,09,E3,D3, 69,94, 4C,E6, 9,59, A6,CC, 09, 1B81 
919 DATA 4C,D9,99,E6, A6, 4C, CC, D9, 99,09, 99,90,08,F1, 73,A8,21A7- 
915 DATA 99,F2,F9,A2,99,7B,F1,99,B7,7B,99, 80,87, 89, 7B,09,27FB 
929 DATA B7,87,7B,99,99,EF,89,99,E3,EF, 7B,99,E3,E7, 78,99, 2F65 
925 DATA D3,B7, 7B,98,E3,99,C3, 89,08, 4C,E6, 89,59, AG, CC, 69, 368D 
939 DATA 4C,D9, 89, E6, AG, 4C, CC, DO, 89, 99, 89,99,08,F1,73,F1,3D94 
935 DATA 99,F2,F0,99,09,7B,F1,98,87,78,09,99,B7, 80, 7B, 89, 42B6 
949 DATA B7,B7,7B,99,809,EF, 7B,09,09,EF, 7B,09,00,6F,E3,90,48C5 
945 DATA ES, 7B,E3,99,49,C3,E3,D3,98, 4C,E6, 99,59, AG, CC, 99, 5470 
959 DATA 4C,D9,F3,E6, A6, 4C, CC, DO, 99, 99, 99,09, 08,F1,73,F1,5866 
955 DATA 99,F2,F0,00,09,7B,F1,90,00,7B,99,99,09,7F,CF,DB,5E56 | 
969 DATA 99,F7,DB, 99,99, 3E, 09,00, 00, 3F, 00, 00,00, 3F, 00,00, 60E6 
965 DATA 99, 7B,09,00,99,E3,D3, 96,04, D9,8C, 89,09, CC, 59, A6,6647 
979 DATA D9,89,E6,8C,E6, CC, 8C, 59, 99,99, 89, 09,F2,B3,F2,48,6DC8 
975 DATA 99,F0,F1,99,00,F2,B7,06,09,06,B7,7B,99,B7,99,7B, 73AE 
989 DATA 89,87, 7B,7B, 89,09, DF,09,09,00,DF,90,08,08,9F, 00, 77B8 
985 DATA 89,98,B7,90,09,E3,D3,89,98,D9,8C, 99,99, CC,59, A6, 7D55 
999 DATA D9,89,E6,8C,E6, CC, BC, 59, 99,99, 99, 90,58,B3,F2,98,842C 
995 DATA 51,F9,F1,98,99,F2,B7,99,08,90,87,7B,99,B7,99, 7B,BAG6B 
1999 DATA 09,B7,7B,7B,99,98,DF,98,80,B7,DF,D3,89,87,DB,D3,91C5 
1995 DATA 08,B7,7B,E3,98,C3,99, D3, 99, D9, 8C, 49, 99,CC,59, A6, 9BAÿ 
1918 DATA D9,99,E6,8C,E6,CC,8C,59,09,99,00,09,F2,B3, F2, 09, A919 
1915 DATA 98,F0,F1,90,90,F2,B7,69,09, 09,87, 7B,09,B7,09, 7B, A607 
1928 DATA 99,87, 7B; 7B,09,B7,DF,08,08,B7,DF,98,99,D3,9F, 99, AC52 
1925 DATA 99,D3,B7,D3,E3,D3,C3, 89, 09, 09,09, 00,09,00,09,09,B128 
2899 CLS:PRINT " FICHIER LANGAGE MACHINE CORRECT..." 

2918 PRINT:PRINT:PRINT 

2929 PRINT "UNE TOUCHE POUR LA SAUVEGARDE..." 

2934 CALL &BB18 

2849 SAVE "SPRILAND",B, 48969, &B98 m 





BRIDATA2 . BAS 


5 MEMORY &7FFF:MODE 
7 LOCATE 1,18:PRINT " DATAS DE LA LIGNE CORRECTS":PEN 2 


19 A=&9D29:F=&AD79:L=199:MHILE AC=F:FOR A=A TO A+I5:READ C$:K=V 
AL("R"4CS) :S=S+K+65536#(S+K)32767): IF A<=F THEN POKE A,K 
28 NEXT:READ D$:T=VAL("&"+D$):1F TS THEN PRINT CHR$(7);"Erreu 





r ligne";L:END ELSE L=L+5 
.25 LOCATE 29,18:PRINT L-S:WEND 


19 


198 DATA 
195 DATA 
119 DATA 
115 DATA 
129 DATA 
125 DATA 
139 DATA 
135 DATA 
149 DATA 
145 DATA 
159 DATA 
155 DATA 
169 DATA 
165 DATA 
178 DATA 
175 DATA 
189 DATA 
185 DATA 
198 DATA 
195 DATA 
284$ DATA 
295 DATA 
219 DATA 
215 DATA 
229 DATA 
225 DATA 
239 DATA 
235 DATA 
249 DATA 
245 DATA 
259 DATA 
255 DATA 
269 DATA 
265 DATA 
279 DATA 
275 DATA 
289 DATA 
285 DATA 
299 DATA 
295 DATA 
389 DATA 
395 DATA 
318 DATA 
315 DATA 
32ÿ DATA 


| 325 DATA 


339 DATA 
335 DATA 
34ÿ DATA 
345 DATA 
359 DATA 
355 DATA 
364 DATA 
365 DATA 


1998 CLS: 


DD,5E,89,DD, 56,91, DD, 6E, 92, DD, 66,93, 96,98, C5,E5, SEBA 
86,92, 1A,77,23,13,19,FA,E1,CD,26,BC,C1, 19, EF, C9, BDAC 
45,CF,45,CF,49,49,49,49,11,11,11,11,44,CC, 99,90, 1228 
99, 68A, 45,84, 09,65, 09,89,09,22, 99,22, 44, CC, 99,09, 15D5 
45,CF,45,45, 99,49, 99,49, 99,22, 11,99, 44,CC, 08,08, 1936 
45,CF,45,45, 69, 49,09, 49,09, 33,99, 11,44, CC, 49,09, 1CAB 
59,45,99,CF,99,C9, 49,49, 11,33, 90, 11,98, 44,00, 00, 1F95 
45,CF,45,98,49,00,99,C0,99,11,11,11,44,CC, 99,09, 2331 
45,CF,45,45,49,09,49,C9,11,11,11,11,44,CC,09,99,2763 
45,CF,99,45,00,49,09, 80,90, 22, 11,80, 44, 99,09, DD, 29F3 
45,CF,45,45,49,49,49,C9,11,11,11,11,44,CC, 98,98, 2E65 
45,CF,45,45,49,49,49,C8,69,11,09, 11,44, CC, 99, 99, 32B5 
59,90,09,00, 00,09, 00,09, 09, AA, 00,09,08,28,90,09,3387 
59,99, 09,00,09,00,09, 00,08, AA, 00,00, 99, 28, 14, 09, 346D 
50,90,99, 00, 00,09, 00,090, 05,09, 00, AA, 00,28, 09,00, 353F 
09,99, 00,00,00,00,00,00,90,00,09, AA, 99,28, 14,00, 3625 
59,80,99,689, 15,09, 09,09, 00,00,00,00,00,00,90,00,373A 
99,89, 49,40,15,15,99, 15,90, AA, 00,09, 09, 28,09, 00, 394B 
29,89, 90,89, 99,24, 05, 2A, 09, AA, 00, 09,00, 28,00,90,3B71 
49,C8,49,0C9,15,15,15,15,55,FF,55,55, 14, 14,09, 09, 3FEB 
49,C4,49,09,15,15,15, 15,55, AA, 55,55, 14, 3C, 08,00, 4438 
49,C9,49,C8,15,98,15,09,55,89,55,99, 14, 3C, 09, 99, 475C 
49,89,49,09,15,15,15,15,55,55,65,55, 14, 3C, 98,00, 4B14 
49,C9,49,C0,15,99,15, 99,55, AA, 55,99, 14, 3C, 99, 09, 4EE2 
49,C0,49,09,15,09,15,99,55, AA, 55,09, 14,09,09,00,5274 
49,C9,49,C9,15,15,15,09,55,99,55,55, 14, 3C, 99, 09, 5692 
49,49,49,49,15,15,15,15,55,FF,55,55, 14, 14, 99,09, 597C 
49,C9,09,89, 09, 2A, 09, 2A,08, AA, 09, AA, 14, 3C, 99, 99, SCF4 
49,C0, 80,80, 06, 2A, 99, 2A, 00, AA, 0, AA, 4, 28,00,00,6058 
49,49,49,49,15,15,15,2A,55, AA,55,55, 14, 14, 9, 29, 6392 
49,00,49,09,15,09,15,09,55,09, 55,90, 14, 3C, 08,00,6536 
49,49,49,09,15,3F,15,15,55,55,55,55, 14, 14,99, 00, 68Bÿ 
49,49,49,49,15,3F,15,3F,55,FF,55,55, 14, 14,98,09,6C7E 
49,C8,49,49,15,15,15,15,55,55,65,55, 14, 3C, 99,00, GFF6 
49,C9,49,09,15,15,15,15,55,FF,55,98, 14, 90,00, 08, 7497 
49,C8,49,00,15,15,15,15,55,55,55,55, 14, 3C, 99, 28, 7827 
49,C0,49,09,15,15,15, 15,55, AA, 55,55, 14, 14,0D,99, 7C4C 
49,C9,49,C0,15,99,15,98,55,FF,09,55, 14, 3C, 99, 09, 896F 
49,C9,49,C9, 00, 2A, 09,24, 09, AA, 00, AA, OO, 28, 00, 09,843F 
49,49, 49,49,15,15,15,15,55,55,55,55, 14, 3C, 99, 09,8737 
49,49,49,49,15,15,15,15,55,55,55,55, 99,28, 08,09, 8A97 
49,49, 49,49,15,15,15,15,55,FF,55,FF, 14, 14, 99, 09, 8E2B 
49,49, 49, 49,15, 15, 99, 2A, 99, AA,55,55, 14, 14,08, 09, 9DFB 
49,40, 49,49,15,15,09,2A,09, AA, 09, AA, 00, 28,00, 09,93CB 
49,C9,00,49, 09, 15,09, 2A, 99, AA, 55,99, 14, 3C, 68, 09, 9699 
99,99, 00,00,00,00,00,08,09,60,09, 09,00, 00, 99,09, 9690 
7C,C6,98,67,D9,D5, 11,59, C9, 19, D, C9, 8, DD, 6E, 98, 9E9E 
DD, 66,41,DD,5E,92,DD,56,93,8E, 19, 47,C5, D5, 3E, 84, A436 
4F, 96, 99, ED, BY, EB,E1,CD, 99, A9, EB, C1, 18,EE, C9, 98, ACD4 
DD,5E, 69, DD, 56, 91,DD,6E, 92, DD, 66,93, 96, 19, C5,E5, B396 
96,94, 1A, AE, 77,23,13,19,F9,E1,CD,99, AB, C1, 1,EE, BA2B 
C9,11,89,A4,DD,6E, 99, DD,66, 91,96, 19,C5, ES, 96,84, CH92 
7E,12,13,23,19,FA,E1,CD,99,A9,C1,19,EF,C9,CD,51,C7C7 
99,99,09,00,09,00,09,99,00, 90,09, 09,09, 99,99, 09,C7C7 
PRINT "FICHIER LANGAGE MACHINE CORRECT.. ." 


1919 PRINT:PRINT:PRINT 

1929 PRINT "UNE TOUCHE POUR LA SAUVEGARDE..." 
1939 CALL &BB18 

1949 SAVE "ROUTLAND",B, &9D29, &358m 


3615 JESSICO 
RUAI=:Re1t)772 


CONSOLES MEGADRIVE A GAGNER 








COMPILATIONS 


SUPER STAR ARCADE 195/265 
Golden Axe + Super Offroad 
Midnight Resistance + NARC 

SUPER HEROES …. 145/195 
Robocop +Indiana jones 

Last ninja +Espion qui m'aimait 
SWORD & MAGIC 225 
Twin lord + Targan + Barbarian 2 
SUPER ACTION 195/265 





Supercars+Impossamole +G.Lineker 
+Switchblade +Toyota celica 





F16 + Double dragon + Italy 90 
+Welltris + Turbo out run 
PALACE HITS 
Stunrunner+ Man 
Castle master 
ACTION PACK ae 
Turrican 1+2 +Kick off + X-out 
LES COLLECTORS ….. 145/195 
Lotus 1+Supercars+Switchblade 
Ghouls and ghost 

BLACK SOFT 1... 295 
Mokowe + Fugitif + Ali gator 
EPOPEES 2 
Fugitif +Secte noire 
EPOPEES 3 
Infernal hous: 
LES JUSTICIERS 3 ….…..... 145/195 
Batman +Total recall+ Shadow dancer 
OCEAN SPORT 145/195 
Manchester united + Pro tennis tour 
Beach volley + Off road racer 
OCEAN ARCADE 145/195 
Midnight resistance + off road racer 
Narc + Golden axe 

TOP 25 185/245 
Andy capp+Flight simul.+Popeye 
+Combat zone+Jawa+Army moves 
Oper.hormuz+Tarzan+Gunboat+Ace2 
Strike force har.+20000 avant JC+Atf 
Malefice atlantes+Bobsleigh+Zynaps 
+After the war+Astro marine corps 
Netherworld+Tuer n'est pas jouer 
Exolon+Skatewars+Foot.manager 2 
Tomahawk 

JAMES BOND Collection .. 125/195 
L'espion qui m'aimait + Permis de 
tuer + Vivre et laisser mourir 

TOP $ sscsesessenssssssseinenss 195/245 
Tennis + Pinball magic +Moonblaster 
ADS + SHERMAN M4 …….. 195/245 
LES COSTAUDS …. … 185/242 
Flimbo's quest+twinlord+Monsters 
R.dangerous_ 2+P0) eye2rAndy 14 
AIR COMBAT ACES 165/2 
Gunship +Bomber +Flight simulator 
+Gee bee air rallye 

LES BATTANTS 2 .… 155/225 
R.dangerous1 & 2 + dragon 2 
Licence to kill +Satan+Astro marine 
AIR SEA SUPREMACY ….. 195/295 
Silent service + Carrier command 

+ F15 + Hunt red october + P47 
KARATE ACES 155/225 
Double dragon 1 & 2 + Saboteur 2 
Last ninja 2 + Oriental games 
RAPP Ke 125/225 
Stunt car + Vixen + Satan + P47 
Army moves + Champion spirit 
FUN RADIO ……........... 145/195 
Tortues ninja + Back to the future 2 
Gremlins 2 + Day of thunder 

TOP ACTION … Ses eee 
Hard drivin + Strike force harrier 
Pick'n pile + Licence to kill + Tarzan 


+ Operation hormuz 
SUPE … 175/245 


R SEGA VOL 1 E 
+ E-swat + Golden axe + Crackdown 
MAX 175/245 















































Shinobi + Super Mona 





St_ dragon+Turrican2+Swiv+Nightshift 
CAPCOM COLLECTION ….175/245 
Strider + Un squadron + Led storm 
Forgotten world +Ghouls and ghosts 
Dinasty + Strider 2 + Duel 

LE TEMPS DES HEROS …. 195/245 
North and south + Prince of Persia 
Moonblaster 

LES STARS 195/245 
Skweek + Builderland + Bumpy 
+Superskweek 

SUCCES STORY ……...….. 165/225 
Bumpy + Skweek + Turbocup 

+ Crazyshot + Space racer 





TOP ACTION 65/225 
Loderunner + 
GRAND STAND 145/195 


World c.leaderboard +Pro tennis 
+ Gazza + Continental circus 








EPOPEES 1 

Alive + Sdaw + Manoir de morteville 
UNIVERS 1 … 245 
TOP 20 .. 





Licence to kill+P47+C.Chapiin 
+Batty+Game over 2+Ace 1+Rax 
Mange cailloux+MLM 3D + G.P 500 
AsparGP + Devilcastle + Hotshot 
+Shockway+Rider +Buggy 2 +Zaxx 
+3D Grand prix +Battle Valley 

+Super ski +Light force 
COMPIL.EXTRAORDINAIRE 195/245 
Turbo cup + Sapiens + Skweek + Zox 
+Maracaibo + Mobileman + Bump 

+ Cobra + Bactron + Aigle d'or + Ye 
MEGA MIX. 145/225 
Turrican + C W 
warriors + Altered beast 
NRJ 2 





sur 152/249 
D A ee dé ma 
+ Pinball Hype corridor 
SUPER SIM PACK ……….…. 145/195 
Snowstrike + Heavy metal+ ftaly 90 
+ Turbo out run 
MONDE DES MERVEILLES 145/195 
y Gratl y A rl 
+ Action ler + Fr GP+ 
langerous +Chi Oo + Way 
patrol +Beyond ice palabe 








Minna 152/249 
North&south+Hostages+Tintin lune 
+Fire and forget +Teenage queen 
LIVRET DE FAMILLE . 245 
Manoir de morteville + 
+ Rody & mastico 
COLLECTION N°2 239 
Dragon ninja + Beach volley + Wec 
le mans + B.Bobble + Monterey + 
Arkanoid2 + Renegade + Matchday 2 
+ Basket master +Super sprint 
+ Flying shark 
STARS D'HOLLYWOOD ….. 142/192 
Batman + Indy Action + Robocop 
+ Ghostbusters 2 
LES GEANTS DU SPORT .. 192/259 
Kick off + Great courts + TT Race + 
Football Manager 2 + 3D Grand Prix 
+ Emelyn Hugues + Bobsleigh 
LES DIEUX DU CIEL 192/259 
Chuck Yeager + Ace 182 + ATF 
+ Strike Force Harrier +Tomahawk 
+Hard Drivin + Powerdrift 
15 MEGASTAR 182/259 
Navymoves + Exolon + Buggy 2 
+ Bombjack + Commando + 1942 
+Battle valley + Air Wolf + Bati 
Scoobidoo + Saboteur + Battle ship + 
Ghost & Goblins + Crépuscule Naja 
+ Talisman d'Osiris 
LES FOUS DU FOOT 175/225 
Emelyn Hugues + Foot Manager 2 
Fighting Soccer +Kick off 
LES JÜSTICIERS 2 145/195 
Ghostbusters2+0.Thunderbolt+Cabal 


TOP HITS 








3D CONSTRUCTION KIT ... 245/245 
AIGLE D'OR /LE RETOUR .… 245 
ALIEN STORM 105/155 
ALI GATOR 149 
ALIVE … 195 
ARMALYTE ….…............. 125/165 
ART DE LA GUERRE … .… 245 
BABY-JO xs 195/245 
BACK THE GOLDEN AGE ….. 97/145 


BACK TO THE FUTURE 3 . 105/145 





























BADLANDS .… 97/145 
BAT are ..…. 245 
BATTLE COMMAND 105/155 
BIG RUN …. Sont D 71180 
BLUES BROTHERS ….….... 155/195 
BONANZO BROS SEGA .….. 115/165 
BOOLY ….. L 145/195 
BOXING MANAGER … 145/195 
BRAINIES 135/175 
BRIDGE SIMULATOR . 215 
BUILDER LAND ….…...... 145/195 
CAPTAIN PLANET 105/155 
CARMEN SAN DIEGO se 195 
CHESSMASTER . sus 225 
CISCO HEAT 105/155 
DARKMAN 105/155 
DEFENDER OF THE Crown …….. 195 
DISC ns 145/195 
EUROPEEN super league .. 105/155 
EXTREME …. ess 125/155 
F16 COMBAT PILOT 142/195 
FINAL FIGHT 105/155 
FUGITIF …. cerésress SRD 
G LOC R360 .…. .. 115/165 
GAUNTLET 3 s 115/165 
GOLDENAXE ……......... 105/145 
GRAND PRIX 500 CC 2 …..……. 195 
GUARDIANS …........….. 195/225 
HEROIC FANTAISY 195 
HERO QUEST 

HOT RUBBER . 

HUDSON HAWK 

INFERNAL HOUSE sscsseee 195 
IRON LORD … .. 172/220 
KICK OFF 2. 135/169 
LA CRYPTE D 6e 





LA MALEDICTION … 
LA SECTE NOIRE 









LOOPZ .105/145 
MANCHESTER U. EUROP. 105/155 
MEGA PHOENIX .. 97/145 






























MEGATWINS . 115/165 
MERCS 145/195 
METAL MASTER . .. 145/195 
MYSTICAL …… 125/162 
NEVERENDING .. 105/155 
NIGHT SHIFT .…… 97/155 
OUTRUN EUROPA .. 115/165 
PAPERBOY 2 .105/155 





PANZA KICK BOXING 
PARAGLIDING 
PITFIGHTER 

PREDATOR 2 


. 195/245 
195/225 
105/175 
105/145 





PREHISTORI 135/175 
RACE DRIVIN 105/155 
RAMPARTS 105/155 
REVELATION 97/145 
ROBOZONE . 105/155 
ROBOCOP 2 97/145 
ROD LAND … 115/155 
ROLLER BALL … 195 
SHADOW DANCER 105/155 
SHERMAN M4 . 165/225 
SIM CITY 145/195 
SLIDERS … 195 
SMASH TV 105/155 





SPACE CRUSADE . 105/155 
SPACE GUN 125/155 
SPIRIT OF EXCALIBUR 105/155 
STAR CONTROL … 105/155 
STEVE MAC QUEEN 

SUPER MONACO GP 

SUPER SPACE INVADI 

TARGHAN … 


TERMINATOR 
TORTUES NINJ 
TENNIS CUP 
THE SEARCH OF SHARLA 
THE SHOE PEOPLE . 
THE SIMPSONS …. 
THUNDER BURNER . 






















LÉ) 


THUNDERJAWS ….…....... 105/145 
TRACKSUIT MANAGER 2 ....97/145 
TURRICAN 2 105/155 
WORLD CLASS CRICKET .165/195 
WORLD CLASS RUGBY 195/225 
WRATH OF THE DEMON 97/145 
WWF 125/155 
XYPHOS FANTAISY 195 





ILITAIRES 

ADVANCED OCP ART STUDIO 245 
APPRENDRE L'ASSEMBLEUR . 295 
AUTOFORMATION BASIC 290 
CARTOUCHE basic AMSTRAD .… 69 


COMPTABILITÉ ALIENOR 1550 
COURS DE SOLFEGE 1 145/195 
COURS DE SOLFEGE 2 145/195 
DESSIN TECHNIQUE 375 
DESSIN TECHNIQUE TURBO 715 
DISCBASE 199 
DISCOLOGY V.6.0 350 
ECHOSOFT . 395 
EQUINOXE 299 
FACTURATION + STOCK 1550 
FACTURES FACILES 285 
GESTION DOMESTIQUE 249 
GESTION BANCAIRE .…. 245 
GESTION DE FICHIER .… 290 
GRAPHEUR 275 
GRAPH-MASTER : 249 
HOUSE MUSIC SYSTEM 250 
INTEGRE (L') 1 .. 425 
KWIKFILE 199 
LA SOLUTION 595 
MAXAM Assembleur disc 299 
MAXAM Assembleur cassette … 275 
MAXAM Assembleur rom 399 


MENTEL minitel malin + câble .. 395 





MULTIFACE 2 + CPC 5 495 
MULTIFACE 2 + CPC PLUS 525 
MUSIC PRO 225 
STATGRAPH 350 
THE INSIDER . es 149 
RAMDOS .. ee ls 
RODOS ……. se 299 
ROMDOS .… 299 
ROMBOARD … . 349 
PACK GESTION 675 
PACK PRINTER 6128 .. 475 


PROTEXT Traitement texte disc 349 
PROTEXT Traitement texte K7 .. 295 
PROTEXT Traitement texte rom 399 
PAGE PUBLISHER PAO 325 
PAGE publisher PICTURE disc . 149 





PC TRANS. 279 
SPRITES ALIVE os 49 
TASWORD + MAIL MERGE 425 
TRAFFIC CB 189 
TRAFFIC EMISSION .249 
TRAFFIC SWL 





CONTEST REF . 





CONTEST COWWI 249 
PORTRAIT ASTRAL 295 
LE TAROMANCIEN 290 
PREVISIONS ASTRALES 290 


MICRO CLUB 99F 


N°1 - ARKANOID 1+2 

N°2 - GAUNTLET 1+2 

N°3 - OUT RUN +ROAD BALSTER 
N°4 - END.Racer +SUPERHANGON 
- IK#YIE AR KUNG FU 

- GRYSOR+GREEN BERET 

- CALIFORNIA +Winter Games 
- STREET Fighter +Tiger Road 
- PLATOON+PREDATOR 

- CRAZY Cars+SUPER SPRINT 
- B.BOBBLE+FLYING SHARK 

- ACE OF ACES+INFILTRATOR 
- RENEGADE+TARGET REN. 

- TOP GUN+SLAP FLIGHT 

- ROLLING THUNDER+RYGAR 
- D.THOMPSON+SUOER TEST 
- Matchday 2+Basket MASTER 
N°18 - WONDERBOY+WIZZBALL 
N°19 - QUARTET+RAMPAGE 

N°20 - HYPERSPORT+TRACKFIELD 
N°21 - THUNDERBLADE+1943 
N°22 - Road Blaster + Metrocross 


Housse complète clavier+écran 
HOUSSE 464 cpc … 99 
HOUSSE 6128 cp 
HOUSSE 464/6128 
HOUSSE DISC FD1:/DD11 
HOUSSE DMP 2160/3160 
HOUSSE CITIZEN 120 D 
HOUSSE STAR NL 10 . 
HOUSSE STAR LC 10 . 






DS CS CS DUR CUS CUS CUS CUS GOUN DURS CONS DONS OURS GUN UN ON DU 
NOUS LIVRONS TOUJOURS LES DERNIERES VERSIONS 


BON DE COMMANDE £W PRESS 
GAGNEZ DU TEMPS ! Commandez par 


à retourner à 


"Quand les prix 
sont si bas: 


EDUCATIFS 


CEDIC-NATHAN 


ALLEMAND DEBUTANT 6/5e ….. 225 
ALLEMAND CONFIRME 4/3e ….. 225 
ANGLAIS CONFIRME 4/3e 225 
ANGLAIS DEBUTANT 6/5e 225 


DONALD alphabet magique 145/195 
Apprends moi compter MAT/CP 225 


Apprends moi à écrire CP/CE ….. 225 
Apprends moi à lire 1 MAT/CP .225 
Apprends moi à lire 2 CP 225 
ECRIRE sans faute vol 1 225 
ECRIRE sans faute vol 2 . .. 225 
LABYRINTHE D'ERRARE 225 
Labyrinthe aux cent calculs 225 
LABYRINTHE ANGLOMANIA 1 .225 
LABYRINTHE ANGLOMANIA 2 .225 
LANGUE FRANCAISE CE1 225 
LANGUE FRANCAISE CE2 225 
LANGUE FRANCAISE CM1 225 
LANGUE FRANCAISE CM2 ….…. 225 
LANGUE FRANCAISE 6e 225 
LANGUE FRANCAISE 5e 225 
LANGUE FRANCAISE 4e 225 
LANGUE FRANCAISE 3e .… 225 
NATHAN MATHS 6/5e 225 
NATHAN MATHS 4e -225 
NATHAN MATHS 3e » 225 
NATHAN FRANCAIS CP/CE1 225 
NATHAN FRANCAIS CE/CE2 ….. 225 
NATHAN FRANCAIS CM1 225 
NATHAN FRANCAIS CM2 225 
NATHAN MATHS CP/CE1 . 225 
NATHAN ECOLE MATHS CE2 .. 225 
NATHAN ECOLE MATHS CM1 .. 225 
NATHAN ECOLE MATHS CM2 225 
MICRO C 
ALLEMAND PRIMAIRE 199 
ANGLAIS PRIMAIRE 199 
ITALIEN PRIMAIRE 199 
ESPAGNOL PRIMAIRE 199 
ANGLAIS 4/3e 199 
DECLIC LECTURE ….. . 199 
EDUC.MATERNELLE 1 .199 








EDUC.MATERNELLE 2 s199 
FRANCAIS CM. su 170/199 
GRAMMAIRE 6/5e 199 
LECTURE CP sussessrs 199 
MATHS 2e CYCLE 1. 199/250 
MATHS 2e CYCLE 2. 170/199 
MATHS 3e 170/199 
MATHS 4e 170/199 
MATHS 5e … 170/199 
MATHS 6e .…. .… 170/199 
MATHS CP …. .. 170/199 
MATHS CE . 170/199 
MATHS CM. 199/250 
ORTHO CM ….…..................... 199 
GENERATION 5 
DESTINAT. MATHS CE 1/2 235 
DESTINAT. MATHS CM 1/2... 235 
DESTINATION MATHS 6/5e ….. 235 


4 SAISONS DE L'ECRIT CE/CM 
4 SAISONS DE L'ECRIT 6/3e … 
SECRET ENGLAND 6/5e 

SECRET ENGLAND 4/3e … 1 
DEUTSCHES GEHEMNIS 6/5e .249 





DEUTSCHES GEHEMNIS 4/3e .249 
ORTHO CE1/CE2 - 249 
ORTHO CM1/CM2. 249 
ORTHO 6/5e 





ORTHOGUS 1.CM/6e . 
ORTHOGUS 2. 6/3e 
MATHEX CE/CM 
MATHEX 6/5e …. 
MATHEX 4/3e . 
MATHEX 6/3e . 
PACK REVISION CE/CM 
PACK REVISION 6/5e 
PACK REVISION 4/3e 


LIBRAIRIE 


AUTOFORM BASIC+disc(plus) . 149 
BIEN DEBUTER CPC ….… 99 
BIEN DEBUTER 6128 PLUS . 
LIVRE BASIC 6128 PLUS … 
LIVRE LANGAGE MACHINE . 


ACCESSOIRES 


CASSETTE D'AZIMUTAGE 


















SUPPORT IMPRIM. 80 Co . 
SUPPORT MONITEUR 12-14 
MOUSE MAT (tapis) … 

ETIQUETTES DISC 3° les 100 …. 


CARTOUCHES GX4000 














BAD LANDS … .. 225 
BARBARIAN 2 225 
BATMAN .225 GAMEBOY CARRY CASE 99 
CHASE HQ . 225  GAMEBOY ILLUMINATOR . 129 
CRAZY CARS 2 225 GAMEBOY GAME LIGHT. 99 
EPICS WORLD OF GAMES 225  GAMEBOY LIGHTBOY … 
FIRE AND FORGET 2 225  GAMEBOY LOUPE 
KLAX : 225  GAMEBOY KIT NETTOYAGE 
NAVY SEALS 225 BATMAN . 
DORA se BATTLE UNIT ZEOTH 
TLEJUICE 
PLOTTING 225 SR 
PRO TENNIS TOUR 225 
BO JACKSON in 
ROBOCOP 2 225 
SPIDERMAN 225 BUBBLE BOBBLE .. 
N BUGS BUNNY 2 
SWITCH BLADE 225 
TENNIS CUP 2 … 225 BURGER TIME DELUXE 
WILD STREET 225 CASTELIAN 
CASTELVANIA 2. 
PERIPHERIQUES CHASE HQ 
CHOPLIFTER 2 
SCANNER DART K7/DISC 795 CONTRA 
DIGITALISEUR VIDI ..….. 749 CYCLE GRAND PRIX 
LECTEUR CASSETTE+CABLE .245 DAYS OF THUNDER / 
MULTIFACE 2 + CPC PLUS 525 DICK TRACY 
MULTIFACE 2 + CPC .. 495 DOUBLE DRAGON 2 
SYNTHE VOCAL DISC ou K7 545  DRAGON'S LAIR … 
SYNTHE VOCAL+HP DISC/K7..625  DUCK TALES 
7 LOGICIELS Educt. vocaux 195 ELEVATOR ACTION 
EXT.MEMOIRE 64K/464 . 499 F1 SPRIT , 
EXT.MEMOIRE 256K/6128 1090 FINAL FANTAZY 2 
CRAYON OPTIQUE Cassette 225  GREMLINS 2 
CRAYON OPTIQUE Disquette 325  JORDAN VS BIRDS 


MARBLE MADNESS 


JOYSTICKS 

















MEGAMAN 
PHASOR ONE (+MONTRE) 109 MICKEY MOUSE 2 
COMPETITION PRO k 149 MYSTERIUM . 
PRO 5000 Visites .149  NAVY SEALS …… 
QUICKJOY JUNIOR …. NBA ALL STAR 
QUICKJOY 2 NEMESIS 2 
QUICKJOY 2 TURBO 1 135 OPERATION C 
QUICKJOY 3 SUPERCHAR 99  POPEYE 2. 
QUICKJOY 5 SUPERBOARD 192  PUNISHER on 
QUICKJOY VI JETFIGHTER 145  RESCUE PR BOBLETTE 
QUICKJOY TOPSTAR 275  ROCKMAN WORLD 
QUICKJOY SEGA FIGHTER 192  GKATE OR DIE … 
QUICKJOY NI-5 Nintendo ……. 159  SNOOPY 
QUICKJOY NI-PRO Nintendo … 199 Ë 
KONIX SPEEDKING … 1109  SOCCERMANIA 
KONIX SPEEDKING Autoire 125 SUPER MARIO BROS 3 . 
KONIX THE NAVIGATOR 145 SUPER AC PRO AM. 
STING-RAY urines 149 
MANTA-RAY ; 129 
QUICKSHOT APACHE 1 89 TERMINATOR 2 … 
QUICKSHOT MAREVICK 1 159 THE SIMPSONS … 


QUICKSHOT PYTHON 1 


CABLES 
ADAPT.NOUVEAU BUS CPC ….. 125 
DOUBLEUR DE JOYSTICK 49 
DOUBLEUR DE BUS … 159 
CABLE IMPRIMANTE 149 
RALLONGE ECRAN/CLAVIER .. 149 
RALLONGE ECRAN/CLAVIER + 149 
CABLE EXTENSION JOYSTICK .49 
CABLE FD 1 … sus 139 
CABLE MAGNETO CASSETTE .… 49 
CABLE MINITEL CPC .. 55 
CABLE PERITEL CPC . 119 
RALLONGE (ALIM+VIDEO 464) 109 
CABLE GX4000 à CPC 6128 …. 119 


SUPER PROMO 


ADAVANCE OCP ART SUTDIO.. 
IMPRIMANTE DMP 3160 + Protext 

LA SOLUTION Textomat +Datamat +Calcomat . 
JOYSTICK QUICKJOY 5 SUPERBOARD.. 
LECTEUR CASSETTE + CABLE … 
PORTRAIT ASTRAL. 

nEee]Keo]c) A'AHATRUE 

CONSOLE GX4000 

ORDINATEUR CPC 6128plus couleur …. 


TOUR DE TRASH 
TURBO RACING 
WHO FRAMED R.RABBIT . 
WWF SUPERSTARS 


PC-TRANS 
Extraordinaire logiciel de 
transfert de fichiers à partir de 
votre 
CPC vers IBM-PC ou ATARI-ST 
CAEATIEEE 
D'une utilisation facile, rapide et 
fiable. Nécessite un lecteur 3"5 
pour 6128 




















| REF par 10 | par 20 | par 50 | DISQUETTES 3" 
| | Î | | Pour AMSTRAD 
|_s'cF2 169F 310F| 745F| # 
|312 DFDD, 69F 130F. 300F | F90 
|5'140FDD) 56F  105F. 250F| * à units par 50 








Disquettes certifiées 100% garantie à vie .Livrées avec enveloppes plus etiquettes 
BOITIERS PLASTIQUES 3° ET3"50 32 F Les Dix 
DISQUETTE DE NETTOYAGE 3" 69F 
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PAIEMENT ETRANGER EXCLUSIVEMENT PAR MANDAT INTERNATIONAL 
GARANTIE 1 AN SUR LES LOGICIELS 




















LE fe 1j ff ot pp fo fe ef. 


[3 JESSICO - 8693 - 06012 NICE CEDEX 
2 93,51,61.30 - 99,97.22.00 


[Je joins un chèque ou mandat lettre 
Je paie à réception au facteur 
(Je paie par carte bleue et je complète les 2 lignes ci-dessous 


1-12 
+ 25F 


À EE CE EE 


CODE POSTAL L_1 1 1 1 
SIGNATURE OBLIGATOIRE 


TITRES (garantie échange immédiat) Qte Prix Montant 
À carte bleue 
| date d'expiration 
NOM en 
PORT :LOGICIEL JEUX 20F S/TOTAL ris N° ET RUE... 
IMPRIMANTES + CONSOLES 60 F PORT 25 MIÉLE ss race 
ORDINATEURS 120F TOTAL : 
UTILITAIRES + ACCESSOIRES  25F ] 
DOM TOM + ETRANGER + 60F 


BOUTIQUE A NICE HOLLYWOOD STAR 8 BD JOSEPH GARNIER 


précisez votre ordinateur | joisc{]K7{] 













































































































































































































































































































ps i 


SLA 






LE COPIFIID 
LU 


Nr 


SI VOUS SOUHAITEZ GELER UN PROGRAMME , LE COPIER 
ENSUITE SUR DISQUETTE OU CASSETTEAUTOMATIQUEMENT 
EN APPUYANT SIMPLEMENT SUR UN BOUTON, LA SEULE ET 
UNIQUE SOLUTION C'EST MULTIFACE 2. 
D'UNE UTILISATION SIMPLE À LA PORTÉE DE TOUS, GUIDÉ 
PAR UN MENU DEROULANT 
APRES AVOIR LANCE LE PROGRAMME, VOUS POURREZ 
LE STOPPER , LE SAUVEGARDER OÙ ENCORE L'ÉTUDIER 
ET LE DÉTAILLER À VOTRE CONVENANCE, GRACE AU 
MULTI - TOOLKIT INCORPORE DANS MULTIFACE 2. 
EN APPUYANT SUR RETURN OÙ EN LE RECHARGEANT LA 
FOIS SUIVANTE IL REPRENDRA AUTOMATIQUEMENT, DEPUIS 
L'ENDROIT OÙ VOUS L'AVEZ GELE 


L'INDISPENSABLE COMPAGNON DU MULTIFACE 2 
VOULEZ-VOUS TOUT CONNAÎTRE À L'INTERIEUR D'UN PROGRAMME ! 
BRANCHEZ THE INSIDER, avec MULTIFACE 2, LANCEZ UN PROGRAMME, 
GELEZ-LE ET ALORS THE INSIDER VOUS RÉVELERA TOUT : IL DESASSEMBLE 
COMPLÉTEMENT, CHERCHE ET TROUVE TEXTES ET CODES, AFFICHE ET 
MODIFIE RAM ET REGISTRES DU Z 80, IMPRIME. 








AUGMENTEZ LA MEMOIRE DE VOTRE CPC ! 


AVEC DK'TRONICS 
EXTENSION MÉMOIRE 64K POUR CPC 464/664 499 F 


EXTENSION MÉMOIRE 256K POUR CPC 6128 1090 F 
CRAYON OPTIQUE CASSETTE 225 F 
CRAYON OPTIQUE DISQUETTE x -325 F 


EXTENSION MEMOIRE: AUGMENTE DE 64 K OÙ 128 K LA 
CAPACITÉ MÉMOIRE DE VOTRE CPC 

CRAYON OPTIQUE : PERMET D"EXPLOITER LES CAPACITÉS 
GRAPHIQUES DU CPC 








LECTEUR 3.50/ 800 K POUR CPC 
1090 F 


INDISPENSABLE POUR LES USAGERS AYANT BESOIN DE 
CAPACITÉ DE STOCKAGE 800 K * 80 PISTES * DOUBLE FACES 
POUR L'UTILISER PLEINEMENT IL EST NÉCESSAIRE D 'AVOIR 
UN DES 3 LOGICIELS SUIVANTS RODOS * ROMDOS * RAMDOS 
* ROMDOS ET RAMDOS SONT DEUX LOGICIELS IDENTIQUES 
SAUF QUE ROMDOS EST EN ROM ET NÉCESSITE 


MULTIFACE2 + CPC 464/6128 495 F CUTIÉRATONDUN ROMBOARD POUR SON INSTALLATION, 
ME ROD 
MULTIFACEZ2 + CPC 464/6128 PLUS 525 F *RAMDOS EST LIVRÉ EN DISQUETTE. ILS SONT TOUS 
COMPATIBLES AVEC AMSDOS, CPM 2.2 ET CPM + 
THE INSIDER 149F * RODOS LIVRÉ EN ROM EST LE PLUS COMPLET, IL OFFRE 


PLUS DE 50 COMMANDES SUPPLÉMENTAIRES, CONFIGURE 
AUTOMATIQUEMENT LE DRIVE B, OFFRE UN SILICON DISK, 
UN BUFFER D'IMPRIMANTE, L'ACCES DISK EST 3 FOIS PLUS 
RAPIDE, COMPATIBLE AVEC AMSDOS, IDEAL POUR LES 
UTILISATEURS EXPÉRIMENTES 

SI C'EST UNIQUEMENT LE STOCKAGE QUE L'ON RECHERCHE 
NOUS VOUS CONSEILLONS ROMDOS OÙ RAMDOS 


LECTEUR 3.50 + ROMDOS . 1295 F 





GRAPH-MASTER. …….. 249 F DISCBASE .… séivests 
LE SEUL GESTIONNAIRE ULTRA RAPIDE DE DISQUETTES ! 
CREATION DE 10 TYPES DIFFERENTS DE DIAGRAMMES! : 99 % DES UTILISATEURS DE DISQUETTES TROUVERONT / 
! 
*HISTOGRAMME ‘HISTOGRAMME ANNUEL *HISTOGRAMME QUE DÉCERSE EST NORPENEABEES BASE DE DONNÉES / 
ANNUEL 3D *DIAGRAMME PIE *DIAGRAMME DES TEMPS / 
AGRAUME DE FONCTIONS COMPLEXES GRAPHIQUE SPECIALISE DANS LE CLASSEMENT. LA RECHERCHE DE ’ 
; E DISQUETTES ET DES FICHIERS QU'ELLES 
RS NE EN BARRES * BAR GRAPHS CONTIENNENT POUR CONSTRUIRE VOTRE BASE DE DON- / 
IL Y À 6 PROGRAMMES DE BASE SUR LE MENU PRINCIPAL NÉCENQUS N'AVEZQUA INSÉRER VOS DRACENTES / 
D'OU TOUS LES AUTRES SONT SÉLECTIONNES LE PROGRAMME LIRA ET ENREGISTRERA LEUR Ê 
te HE SRANEUS Le PLUS CATALOGUE VOUS POUVEZ DONC RECHERCHER ET / 
: R Ni DI 
IDEAL COMPAGNON DES MATHEUX DE BAZ ET DE LA FAC RETROUVER ERLMOINS D'UN SECONPELA DISOVETTE / 
AINSI QUE POUR LE MONDE DES AFFAIRES PLUS DE PAGAILLE, PLUS DE TEMPS PERDU EN L 
RECHERCHES INUTILES ! / 
+ JONGLE COMME UN CHAT AVEC LES CATS *MET À JOUR ’ 
1 1 : AUTOMATIQUEMENT LA LISTE DES CATALOGUES 
Gagnez de l'argent ! faites comme “LISTE ENTIÉREMENT LES DISQUETTES ET LES FICHIERS / 
les pros, utilisez le meilleur logiciel IMPRIMÉES. LISTES ET CATALOGUES , 
de création de jeux. , 
SPRITE ALIVE  DISC...349F DT KWIKFILE 100 F ’ 
SI VOUS VOULEZ RÉALISER VOS PROPRES JEUX AYANT UN 9 
ST SPHITES ALIVE QUIL VOUS FAUT UN PUISSANT GESTIONNAIRE DE DONNEES, POUR LE y 
“1 à ! 
+ BASIC SIMPLE * DETECTEUR DE COLLISIONS VRAIES. PRDCD'UN SIMPLE JEU! L 
EE SOU ON OTICS CLAVIER UNE BASE DE DONNÉES À FAIBLE PRIX POUR UNE f 
: 3 DE MÉMOIRES PROGRAMMÉES É MANIPULATION RAPIDE ET AISÉE DE FICHIERS DE ; L 
- 64 SPRITES SUPER-CHOUETTES * MODE LABYRINTHE DONNÉES VIDI capte et transfère plus de 6 images /sec. 
AUTOMATIQUE CARACTERE TObESe CTP ATOR AN Or RUE directement de votre magnétoscope, caméra, télé [ 
SONMANDES AUTOMATIQUE PE MES ETS DES RUBRIQUES * LONGUEUR DE TOUS LES CHAMPS DE VCLERN TO CRE TECITETCTTTS / 
+ PUISSANT, HYPER RAPIDE GRACE AU COMPILER MARIE as RG ETES CARE OO DCTETS PAR Sauvegarde sur cassette ou disquette / 
+ 6 PROGRAMMES DE DÉMO BASIC.+ 2 DE DÉMO COMPILER EME TRI A) PHA NUMÉRIQUE SUR TOUS LES CHAMPS : Travaille en MODES O0, 1 ou 2 , 
RECHERCHE RAPIDE PAR TOUCHE QUI AFFICHE SUR ire: vi iti 
L'ÉCRAN TOUS LES ENREGISTREMENTS CONTENANT LES 16Ko de mémoire vidéo additionnelle / 
z DONNÉES DÉSIRÉES * IMPRESSION DE TOUTES LES RUBRI- Contrôleur d'images incorporé , 
MAXAM  ASSEMBLEUR-DÉSASSEMBLEUR QUES DANS N'IMPORTE QUEL ORDRE RÉPONSE AVEC OÙ Compatible  OCP ART STUDIO j 
SANS NOM DE CHAMP * CALCULS DANS LES RUBRIQUES k 
ASSEMBLEUR DESRESEMBLEUR: SYSTEME BOMRCETDE (IDEAL POUR TENUE DE STOCK.) POSSIBILITÉ DE CHAN- Livré avec câble RCA, BNC + câble PERITEL , 
DÉREC AL UETEA DU PROGRAMMEUR GER DE FORMULE DE CALCUL DANS TOUTE RUBRIQUE ET 
MENU DÉROULANT : LOAD, MERGE, SAVE, PRINT, FIND DEN AJOUTER CATALOGUE" DE FICHIERS: SÉRES FAR , 
REPLACE, ETC 
ROM : 399 F CASSETTE: 275F  DISC:299 F PAGE PUBLISHER PAO: 325 F / 
+ PUBLICATION ASSISTÉE PAR ORDINATEUR 6128 / 
+ CRÉEZ TRES FACILEMENT VOS DOCUMENTS, POSTERS, / 
A N N E R D A R I 7 9 D F PETITS JOURMAUX, LOGOS, FANZINES, ETC... ’ 
* PAGE PUBLISHER P.A.O. PERMET LE CONTRÔLE, AUSSI 
< , BIEN DE L'IMPRESSION QUE DU GRAPHISME / 
AL + COMPATIBLE TOUTES IMPRIMANTES MATRICIELLES, EPSON, y 
| " s me DMP 2160/3160 
D Fes * GÉRÉ PAR ICONES ET MENUS, PAGE PUBLISHER P.A.O 
PEUT ÊTRE PILOTE PARC CLAVIER OÙ JOYSTICK y 
* RECONNU COMME LE N°1 DE LA MICRO EDITION PAR LA , 
PRESSE EN GB POUR SON RAPPORT QUALITE/PRIX ’ 
PAGE PUBLISHER PICTURE DISC …......... 149 F 
(PLUS DE 400 FONTES ET DESSINS SUPPLEMENTAIRES) 
, 
PROTEXT TRAITEMENT DE TEXTE | 
AMSTRAD CPC 100% N°40 " PROTEXT BRILLE PAR SES C 
PERFORMANCES …." / 
SANS AUCUN DOUTE LE MEILLEUR TRAITEMENT DE TEXTE 
SUR CPC, RECONNU COMME LE N° 1 PAR TOUTE LA PRESSE / 
INFORMATIQUE. | / 
COMPLET, PUISSANT, HYPER RAPIDE, D'UTILISATION TRÈS L 
FACILE. COMPATIBLE TOUTES IMPRIMANTES 
ROM : 399 F CASSETTE : 295 F DISC : 349 F 
/ 
SUPER PROMO 
IMPRIMANTE STAR LC200 COULEUR + DRIVER ………. 2525 F ' 
IMPRIMANTE STAR LC200 COULEUR + DRIVER 
+ ADVANCED OCP ART STUDIO 2690 F L 
DRIVER IMPRIMANTE COULEUR (LC 10 OÙ LC200) 249 F / 
“ce driver permet d'imprimer toutes les images couleurs du CPC C 
vers votre imprimante( LC10 ou LC200 exclusivement) [ 
[ 
0 US : , 
0 : Hal Late THE MUSIC MACHINE 595 F [ 
À *PERMET DE COMPOSER DE LA MUSIQUE, SAUVEGARDER, [ 
ODUISEZ DES IMAGES GRACE AU SCANNER DART EDITER, CHARGER, SONS, RYTHMES ET INSTRUMENTS [ 
* C'EST AUSSI UNE CHAMBRE D'ECHOS AVEC PLUSIEURS 
UN OUTIL REMARQUABLE DE REPRODUCTION D'IMAGES, DOCUMENTS DESSINS, PHOTOS, ETC l EFFETS THE MUSIC MACHINE SERT EGALEMENT DE L 
COMPATIBLE: AVEC * DMP 2000/2160/3000/3160* AMX PAGEMAKER, SOURIS ET CRAYON.* CPC DISK OU CASSETTE ( À PRÉCISER) BATTERIE, 8 TONALITES DE DRUM, SONT PROGRAMMÉES 
DESCRIPTIF : AGRANDISSEMENT X1 - X2 - X3 - X6 * ZOOM * PRINT * LOAD * SAVE * COPY * EDIT * RAJOUT DE TEXTE * 1 OU 2 ECRANS EUR EN EM AODUIQÉ D'AUTRES ' [ 
IMPRESSIONS DEMI OÙ PLEIN FORMAT * ROTATION ECRAN DE 180° MAIS O E [ 
+ COMPATIBLE 100% MIDI * SORTI HIFI + MICRO 
* DISQUETTE OÙ CASSETTE 
"L'ATELIER DE L' ARTISTE" THE ADVANCED OCP ART STUDIO 245 F f 
OCP VOUS PERMET DE CREER UNE IMAGE, DE LA REDUIRE, AGRANDIR, COUPER, COLLER, INCLINER.COLORIER GRACE f 
AUX 8 PISTOLETS, 16 PINCEAUX ET BROSSES À PEINTURE INCORPORÉS, PROJECTION D'OMBRES ET DE FONDS POSSIBLE PORTRAIT ASTRAL 295 F 
SACRÉ MEILLEUR LOGICIEL DE DESSINS ET GRAPHISMES SUR CPC . 
SUPER-PROMO 695 F CERTAINEMENT LE MEILLEUR LOGICIEL D'ASTROLOGIE ! 
rm RÉALISÉ PAR LE PLUS GRAND ASTROLOGUE FRANCAIS ! 
COMPRENANT : THE ADVANCED OCP ART STUDIO + UNE SOURIS GENIUS MOUSE + UN TAPIS SOURIS + UN PORTRAASTAAL VOUS ENCHANTERA ET VOUS j 
PORTE SOURIS + UNE INTERFACE SOURIS THEMES ASTRALS - HORLOGES ASTRALES - PLANETES ! 
| ASTRALES ETC,ETC..... ! 
L 
! 
! 
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LECTEUR 3.50 + RAMDOS . 
LECTEUR 3.50 + RODOS . 


1195 F 
1295 F 












CHEOPS 


près de nombreuses demandes, voici la 
routine COPY.BIN qui permet la recople 


d'écran pour le logiciel Chéops publié le 
mols précédent. 


A 


Cucopy. BAC 


18 A=&9ADB:F=ROE1F:L=19B:WHILE AC=F:FOR A=A TO ATI5:READ C$:K=V 


AL("&"+CS) :5=S+K+65536#(S+K>32767):1F AÇ=F THEN POKE A,K 


28 NEXT:READ D$:T=VAL("&"+D$):1F T()S THEN PRINT CHR$(7);*Erreu 


r ligne";L'END ELSE L=L+5:VEND 

38 SAVE "copy.bin",b, &9Aÿ9, &41F 

189 DATA 81,59, 9A, 21, 4C, 9A, CD, D1,BC, 21, 2E, BD, 11, 03, 9D, A1, B6DA 
185 DATA #3, 89, ED, BY, 21, D6, D, 11,2E, BD, 91,93, 98, ED, B8, 21, CCC 
119 DATA 28, BD, 11,D9,9D,91,93,99,ED,B9,21,D9, 9D, 11, 2B, BD, 1363 
115 DATA 91, 83,99, ED, B9, 21,43, 9A,96,81,9E, 99, 11, 7D, SA, CD, 1B8C 
129 DATA D7,BC,C9,F9,B7,FB,B7,99,81, 7D,9A, 89,36, A5,59,9A, 21A7 
125 DATA 61,9A,C3, 89, 94, C3, 13, 9C,C3,37,9C,C3,B3,9C, C3, 23, 2A88 
139 DATA 9D,43,4F,59,D9,43,4F,4C,4F,D2,59,52,49,4E, 54, 45, 39B1 
135 DATA D2,54,45,58,D4,53,59,4F,4F,4C, 45,D2,99,C5,D5,E5, 3868 
149 DATA F5,CD,8B,9D,F1,E1,D1,C1,C9,FE, 96,C8, DD,6E, SA, DD, 4378 
145 DATA 66,8B,22,FA, 9D, DD, 6E, 96, DD,66,97,22,FE,9D, DD, 6E, 4B45 
159 DATA 98,DD,66,99,22,FC,9D, DD,6E, 94, DD, 66, 85,22, 9ÿ,9E,51AB 
155 DATA DD, 7E, 92,32, 9A,9E, DD, 7E, 99,32, 9B,9E, 2A,FC, 9D, ED, 58C8 
169 DATA 5B,FA,9D,37,3F,ED,52,D8,2A,FE, 9D, ED, 5B, 99, 9E, 37,6129 
165 DATA 3F,ED,52,D6, 24, FA, 9D, 22,92,0E, 2A,FE, 9D,22,94,9E, 6BBB 
179 DATA CD, A9,9B, CD, BA, 9B, 3A, 98,9E, 47, 4F, SE, 09, 32, 99,9E, 6F4B 
175 DATA 32,86,9E, 2A, 9à,9E, ED, 5B, 92,0E, 3A,99,9E,FE, 91,29, 74D5 
184 DATA 94,37,3F,18,98,C5,CD,F9,BB,CD,CB,9B, C1, 3, 46,9E, 7C7E 
185 DATA 17,32,96,9E, 2A,04,9E, ED, 5B, 99, 9E, 37, 3F,ED,52, 38, 829A 
198 DATA 95, 7C,FE,FF,29,95,8E,91,32,99,9F, 2A, 04,9E, 2B, 34, 86F6 
195 DATA 9B,9E,FE, 09, 29, 91,28, 22,94,9E, 19,B7,3A,97,9E,FE,8C51 
298 DATA 99,29, 0D,3E,98,91,47,21,96,9E,37,9F,CB, 1E, 19, FA, 9HCA 
295 DATA 3A,86,9E, CD, 9D, 9C, ED, 5B, 92,0E, 2A, FC, 9D,37,8F, ED, 982C 
218 DATA 52,28, 18,38,16,13,3A,9A,9E,FE, 99, 29,91,13,ED,53,9C73 
215 DATA 92,9E,2A,FE, 9D, 22,94, 9E,C3,E6, 9A, 3A, 98,9E, 4F, SA, A348 
229 DATA 9B,9E,FE, 09,28, 92,CB,21,96,99,2A,FE, QD, 37, 3F, ED, A92B 
225 DATA 42,22,FE, QD, 2A, FA, QD, 22,92,9E, 34, 99,9E,FE,91,CA,B957 
238 DATA A5,9B,C3,E9,9A, CD, A9,9B,C9,21,DC, 9D, 46,78, FE, 98, BAÿ4 
235 DATA C8,23,7E,CD, 95,90, 23, 19,F9,C9,21,E7,9D,46,78,FE,C231 
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PETITS 
CHEVAUX 


‘al reçu également beaucoup de demandes 
J concernant le jeu des petits chevaux. En fait, 
ll semblerait que le problème provienne de la 
taille du fichier P3.BAS. 
l'est en effet impératif que ce programme ne dé- 
passe pas 25 Ko. Or, il semblerait que la plupart 
des personnes obtiennent 27 Ko. Pour remédier à 


ce «défaut», Il suffit de sauvegarder le programme 
en ASCII (SAVE «P3»,A), puis de taper POKE 


&ACO00,1. Rechargez ensuite P3 avec un LOAD 
«P3». Enfin, sauvez à nouveau, mails cette fois-ci 
avec SAVE «P3», 

Normalement, la taille de P3 aura diminuée et vous 
pourrez enfin jouer aux petits chevaux. 





249 DATA 98,C8,23, 7E, CD, 95,00, 23,18, F9, C9, 21, 8E, SE, 16,99, C7E8 
245 DATA 5F,CB, 23, CB, 23, CB, 23, 19, ED,5B, 04, 9E, 34, 9B,9E, FE, CEED 
258 DATA 09, 29,02, CB, 28, 16,80,3E,97,A3,5F, 19, 7E, 4F, ED, 58, D399 
255 DATA 92,9E, 34, BA,9E, FE, 99, 29, 92, CB, 3B, 3€, 07, A3, 47, 04, DBGB 
269 DATA CB, 11,18,FC,C9,E5,C5,CD, 28, BD, C1,E1, CO, C6, 89, CD, E279 
265 DATA 85,9C,C9,FE, 99, CO, DD, 6E, 19,CB, 25, CB, 25, CB, 25, 26, ESFB 
278 DATA 08, 11,9E,9E, 19, DD, 22, 0C,9E, ED, 5B, 4C,9E, 96, 98, 1A, EE94 
275 DATA 77,13, 13, 23, 19,F9,C9,6F,CB, 25, 2D, 2D, 26, 08, DD, 22, F4ÿ4 
289 DATA 4C,9E, ED, 5B, 0C, 9€, 19,22, 8C,9E,5E, 4F, 7B,FE, PB, DS, FAB6 
285 DATA 79, 10,93, CB, 23, 16,99, 37,3F, ED, 52,5E, 4F, 78,FE, 0B, 0098 
298 DATA DS, 79, 10,93, CB, 23, 16, 08, 37, 3F, ED, 52, 47, 7E, FE, 96, 9712 
295 DATA D8, FE, 96, D9, 78, 06,43, CB, 2A,0C,9E, 46,04, 11,7, 9D, GEB4 
399 DATA 7E, 12,28, 28,13, 19,F9,46,64, 11, DC, QD, 7E, 12, 2B, 28, 1349 
345 DATA 13,10,F9, 7E, 32, 06, 9E, 2B, 2B, 7E, 32,0E, QC, 28, 28, 7E, 1836 
319 DATA 32,07,9E, FE, 08, 28,06,3E, 17,32, 19,98, C9, 3E, 1F, 32, CC3 
315 DATA 19,9B,C9,FE, 84, C9, DD, 7E,96,FE, 91, D8, 32, FA, 9D, DD, 25D7 
328 DATA 7E,02,FE,91,D6, 32,FE, 90, DD, 76,64, FE, 51, D4, 32, FC, 2EA? 
395 DATA QD, DD, 7E,89,FE, A, DO, 32, 90,0E, 3A, FE, 9D, 4F, 34, 08, 3585 
339 DATA 9E,91,D8, 4F,0C, 34, FA, D, 47,34, FC, 9D, 99, DB, 47, 44, 3DB5 
335 DATA ED, 43, 0, 9E, 34, FE, 9D, CD, 72, BB, SA, FA, 9D,F5, CD, 6F, 4760 
349 DATA BB, CD, 68, BB,FE, 29, 39, 92, 3E, 29, CD, 95, QC, F1, 8C, 14, 4E5C 
345 DATA EC, CD, A9, 9B, ED, 4B, AC, DE, QD, CE, 34,FE, QD, 3C, 32, FE, 5751 
358 DATA QD, 18,CD,FE, 93, C9, DD,6E, 82, DD,66, 93, D0,5E, 84, DD, 5F43 
355 DATA 56,45,3E, A3, BC, D6, BA, DB, E5, 37, ED, 52, E1,D8, ED, 53, 66F9 
364 DATA F4, 90, 22, F2, 9D, ED,53, F8, 90, 13, ED, 53, F6, 9D, DD, 7E, 7351 
365 DATA 89, 32,80, 9D, CO, 2A, F6, 9D, ED, 5B, F8, 9D, 37,F, ED, 52, 7BC4 
37 DATA 37, CB,3F, C9, 37,F5,C5,D5,E5, CD, 55, 0D, 38, FB, 2A, F6, 6686 
375 DATA 9D, 77,23, 22, F6, 9D, ED, 5B, F2, 90, 37, 8F, ED, 52, 29, 06, 8D26 
389 DATA 24, F4,9D, 22,F6,9D,Et,Dt,C1,F1,C9, 96, 06, 2, F6, D, OBBE 
385 DATA ED, 5B,F8, 9, 37, ED, 52, CB, 2A,FB, 9D, 23, 22, F8, QD, ED, A92F 
399 DATA 5B,F2,9D,37,3F, ED,52, 28,13, 2,F8, QD, 7E, C5, CD, D3, ABAB 
395 DATA QD, C1,38,12,C5,CD, D9, 9D, C1, 19, D2, C9, 2A, F4, 9D, 28, B1A4 
499 DATA 22,F8,9D, C3,8D, 9D, 24, F8, 9D, 28, 22, F8, 90, 19, BE, CO, BABG 
495 DATA CF,1B,88,CF,58, 88, C3, 55, 9D, C3,64, 9D, 91,94, 08, 99, C125 
419 DATA 09,09,00, 00,09, 09,96,07, LB, 31, LB, 24, 4, 7F, 02, 99, C242 
415 DATA 89,99,80, 94, 30,92, F9,97,EF,97,91,08,58,02,18,FF,CB15 
429 DATA 18,09,90,09,FA,FF,99,01,07,01,01,81,91,50, 19, 29, CAB2 
425 DATA 49,80,81,02,84,98,FF,FF,FF,FF,FF,FF,FF,FF,98,9M,D379 


ua 


DISCPACK 


DESASSEMBLER 


Permet le désassemblage du Sys- 
tème d'Exploitation, du BASIC, de 
la ROM Disc où d'un programme 
binaire (longueur max. 33024 octets, 
tous USER sauf &E5). 


° Renseignements : 

Nom de la zone du programme 
desassemblé. 

Début, Start, Longueur et fin de la 
zone. 

L'adresse désassemblée, le code 
HEXA et ASCII, l'ordre assembleur. 


e Les touches : 

(L) - desassemblage adresses crols- 
santes. 

(T) - desassemblage adresses 
décroissantes sl l'adresse a déjà été 
désassemblée auparavant (690 or- 
dres gardés en mémoire). 

(COPY) - Arrêt désassemblage / 
Choix des options. 


e Les options: 

(J) - Saut à une adresse de la zone. 
(R) - Recherche d'octets HEXA/ASCII 
à partir de l'adresse courante +1 et 
sur toute la zone. 

(D) - Retour au désassemblage. 

(A) - Désassemblage automatique 
(une touche pourPAUSE puis (COPY) 
pour l'arrêt du désassemblage 
automatique ou une autre touche 
pour le faire continuer). 

(M) - MENU DESASSEMBLEUR/Choix 
de la zone à désassembler. 


DESASSEMBLEUR nécessite le char- 
gement de DISCPACK.PR2. Donc 
gardez la disquette programme 
dans le lecteur. || est le seul pro- 





P. POCHON 


Valable pour CPC 464 


gramme qui ne puisse revenir au 
MENU PRINCIPAL. Sl l'adresse Start 
est incluse dans la zone à désas- 
sembler, le désassemblage com- 
mence par cette adresse. 


CATALOGUE 


Affiche le vrai catalogue, par USER 
et par ordre alphabétique par-par- 
ges de 13 fichiers. 


° Renseignements : 


Le format 

Le nombre de fichiers | mise 

et de fichiers effacés \ à jour 

La place libre immédiate 


sur la disquette 

User / Nom / Extention / Type (BAS, 
BASp, BIN, BINp. ASCII) 

L'état (RW/RO, DIR/SYS/Effacé) 

La longueur sur la disquette en KO 
Le numéro du premier bloc (pour le 
Header) 

Le début, la Longueur réelle et le 
Start du fichier pointé 


e Les touches : 

(1) () - déplacer le curseur pour 
pointer un fichier 

(W) - permutation RW/RO 

(D) - permutation DIR/SYS si User 
#8&E5 

(U) - changer User si User 4#&E5 

(E) - permutation Effacer/Restaurer 
(R) - Renommer 

(D - Changer l'implantation mémoire 
(sauf fichiers ASCII) 

(P) - Nouvelle page de 13 fichiers 
(S) - Sauvegarder le nouveau cata- 
logue (après confimations) 

(A) - Autre disquette 

(M) - MENU PRINCIPAL 
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RESTRUCTURER 
UNE DISQUETTE 


Un choix de 4 programmes est à la 
disposition de l'utilisateur : 


° Formatage : 
Formatage DATA, Vendor, IBM en 
41 pistes 


e Correction cat : 

Formatage du catalogue, Tri des fi- 
chlers par User et ordre alphabéti- 
que, élimination des fichiers effacés 
et des noms bidons, Correction des 
noms modifiés, Transformation en 
RW et DIR. Permet de passer des 
catalogues TAPEZ RUN»DISK» au ca- 
talogue normal. 


+ Défragmentation : 

Tri du catalogue et élimination des 
fichiers effacés, réaffectation dans 
l'ordre de tous les blocs de la 
disquette au nouveau catalogue 
avec formatage de tous les blocs 
qui ne correspondent plus à un fi- 
chier. Cette restructuration de l'oc- 
cupation disc permet une Edition 
disc plus facile (toutes les pistes qui 
se suivent appartiennent au même 
fichier Jusqu'à la fin de celui-ci) et 
une cople plus rapide (les copieurs 
comme Discology reconnaissent les 
pistes vierges). 

ATTENTION : Tous les blocs doivent 
être standards (test rapide effectué) 
et le catalogue doit correspondre 
à l'occupation disc (pas de 
disquettes plombées du com- 
merce). Toute erreur détruit la dis- 
quette II 


e Déprotection : 


Le programme détermine lui-même 

si le fichier Basic doit être protégé Attention, les deux listings Basic, DISCPACK.BAS et DISCPACK.PR2, 

(id. à SAVE»*NOM».,p) où déprotégé. contiennent des symboles spéciaux qui ne peuvent être Imprimés de 
manière simple. 


RE Voustrouverez donc plusbas,untableaucontenantles différentssymboles, 
EXPLO R la manière de les obtenir, les lignes auxquelles on peut les trouver et les 
UNE DISQUETTE symboles qui les remplacent dans le listing publié. 


Un choix de 3 programmes est à la @ = CTRL+HR (O dans le listing DISCPACK.BAS) lignes 80, 110, 250, 255, 
260, 270, 400, 405, 730, 750, 830, 870, 1230, 1245, 1335, 1405, 1640, 
1710, 1780, 1815. Listing DISCPACK.PR2, lignes : 80, 115, 185 


disposition de l'utilisateur : 


°e Capacité utile : 


Condamnation, par la création d’un & = CTRL+G (H danslelisting)lignes275,540, 1925. Listing DISCPACK.PR2, 
fichier bidon UTILISE, de tous les lignes 55, 60, 125, 160, 190. 
blocs non vierges, non standards, 
non chargeables et défectueux de += CTRL+H (- dans le listing DISCPACK.BAS) ligne 755. 
la disquette. Permet de redonner à 
l'utilisateur l'étendue utillsable de £ = CTRL+HJ (1 dans le listing DISCPACK.BAS) lignes 200, 755 
ses disquettes plombées (ex. 

uettes défectueuses sans risque 
ose ou de perdre des de X = CTRL+X(X dansle listing DISCPACK.BAS)lignes55,75,455,580, 1080, 
nées. 1110, 1140, 1255, 1340, 1415. 
+ Occupation disc : Æ = PRINT CHR$S(127) (M dans le listing DISCPACK.BAS) lignes 330, 420, 
Donne l'occupation disquette et de 1485, 1630, 1680, 1700, 1905. Listing DISCPACK.PR2. lignes 40, 115,150, 
tous les fichiers. (M) pour le retour 175. 


au MENU EXPLORATION, (=) (e-) (L) 
(1. Dour déplacer le CU QUE (CG) & = PRINT CHRS(224) (W danslelisting DISCPACK.BAS) lignes 955, 1115, 


pour «geler où «dégelen le fichier 1145, 1260, 1315, 1355, 1345, 1535, 1555. 


actuellement représenté en carrés 


lumineux sur les carrés sombres. = PRINT CHRS(240) 


Exploration complète de toutes les 
pistes. Les secteurs sont représentés += PRINT CHRS(242) 
par pour normal et conforme 


au format catalogue, à += PRINT CHRS(243) 


OUr les secteurs non standards (le 
so Indique la taille), pour Les autres symboles graphiques s’obtiennent par des PRINT CHRS avec des 


non standards de taille supérieure à numéros de 145 à 159 (consultez votre manuel). Vous trouverez une 
5, M pour indiquer que tous les reproduction agrandie des lignes contenant ces symboles. Utillsez-la pour 
secteurs ne sont pas représentés re-créer les encadrements figurés par des «+» et des «-» dans le listing. 


(plus de 10 secteurs), (—) (—) dé- 











38 CLS#e2:CLS:CLEAR:GOSUB 1065 LIST:CLS#e 
:LOCATE#HIi,2,1:PRINIH1L, STRINGHF(A48,"—"):LO 
CATE#HL,2,1S:PRINTH1, STRINGE (A8, "2" ) 
RE CRM EU PAS Em 
a. Ca me LR 
:LOCATE#HL,1,15:PRINT#1," 
—i——— "#5" : LOCATE#1,58,3:PRINT#1,"X DES 
ASSEMBLER UN PROGRAMME *;"xz" 
75 LOCATEH1,53,3:PRINT#1,"® CATALOGUE D’ 
UNE DISQUETTE Lx" ELOCATE 1,1,1:PRINTH1 
," ; FICHIÉRS.EXT TYPÉ 

: LOCATEH 1 15:P 


1449 CLS :LOC NTH1," — ADR —7 
AS SEMBLAGE 











CODE ASE = DES 
2: EOGATENT 1, ISFRINTÉL,* 








place le curseur (Indication piste et 
secteurs/plste), (COPY) donne le 


= R+ÇCIMKHEY#) :1F x#="P"THEN, 888 
ÉLSE” IF xs A" THEN 60 ÉLGË IE Xi" TANT détail de la piste (No sect... piste. 
FLN ELSE I <R= DA THEN 21 E KC&FFDG)T head, nom sect, taille, DE pour 
L =" ” AND £< E F 
MEN ÉL1COTS 228 ELSE IF È="E THEN 230. Data Erreur, BH pour Bad Head), (C) 
ELSE IF Xi R TE ST AEN 28 ÉLSÉ IF xt" effectue un test chargement de 
U"AND PEEK(Z)<>&ES THEN 419, , cosu chaque secteur (E secteur ef- 
7280 xt=UPPERS#CINKEY#D: IF x$="€e"THE su ne : ne 
B_800:pst- LR ESS 04 PSV SUEt 1 COSUE acé, secteur ectueux ou 
Histéos B 795 ELSE RER ES HEN GOSUB. non chargeable), (M) pour le retour 
. = +1: 

FXS tr THEN GOSUB 800:sct-sct-1:GOSUB 8 au MENU EXPLORATION. 

30 9240: :LOCATE 4,12:PRINT"#":GOSUB 979 

945 x$-UPPERS (INKEY#) : IF xt="e<"AND pst>0 

ATE 4+ INT" “ipst=pst-1 
:LOGATÉ dtpst 1 SPRINT RS GosuB 9376 EDITER 
ÉSde s1" ,b, &c000 , 44000 UNE DISQUETTE 


Choisir entre éditer par piste/sec- 
teur, par bloc ou par fichier. (}) () 
(COPY) pour sélectionner le bloc, la 
piste ou le secteur. (M) permet 
d'annuler le dernier choix et de re- 


ne x+=" +" AND CS TH 
PRINT QuéPatspst#l:LOCATE 4+pst,1 
SRINTe “;GOSUB 970 
1115 x SUBRERS CINKEN ) : IF xt="€"THEN pst 
UB 1396 :GO EL = 


THEN: stspetti: GOSUB _1306 : 
E IF THEN LOCATE#S, 10 : PRINT 
SINÇG RH" : spSt ELSE MEURT ASS 1985 #£LS 


EN LOCATE he 


Hal 
we 
.— 
mo 
st 
ne 
ET 
= 
cr 





x 

111 . 

1145 X#=UPPERS CINKEYS » : IF x =" e" THEN sez= monter SRE jus 
J LE : 

THEN sc-sc+1:GCOSUB 1220:GOT0 1146 ÉLSE I qu'au MENU E . 
FXS "THEN adr-0 ÉLSE ÎF x#-"M"THEN 11 
1269 XSaUPPERTCINKEY# > ; LE RéartTIMEN ble e Touches édition : 
THEN bl-bl+1:GOSUB 1416:GOT0 1255 ELSE (D () - Défilement de la page édi- 
FXS-M@" THEN adr-0 ELSE IF X#-"MYTHEN 10 tion 
Ready | - XA / Ecriture 
save “s2",b,&c000 ,&4006 \ (COPV) + Ecriture HEXA J° Eer 


ASCII / fin d'écriture. 
(T) () (e-) (-) pour déplacer le 
curseur 


1315 x#$=UPPER#ÇINKEY#D:IF x#=""THEN 1315 
SE IF x$= AN (S) - Bloc ou secteur suivant 


EL D adr)6 THEN adr=adr 
FQRE &B285 G:CALL &EFA?7,adr ELSE IF x+t=" 











D adr+i64<1 THEN adr=adr +8 :POKE &B28 - Bloc ou secteur précédent 
ÉTAeCALL &EFA?, ad +96 EL IF x$="@"THE (P).- Bloc ou secteur p 
N RETURN IF LASTR COMLESPRS :X#)<00 THE (L)(E) - Lire ou Ecrire sur disc (écrire 
Ta DO RAR UP PERS TNNEN SD STE SR TUEN 1320 a a nee 
= ec= Es : 
15 L71-1:COSUB 1380:C0SU0B 1370 ÊLSE IF x (D) - Désassembler à partir de 
ve 1900:6080B 1370 °UB 137S:11-11+1:G08 l'adresse courante. Pour l'édition 
1335 IF x$Ete" AND ESzg THEN GOSUB 1375: 0 programme, adressage bloc ou 
nr AND 2820 THEN GO SUB 1375:co=co+1:GOSU adresse réelle du programme. 
RSS AUUN LDbg ES ÉD MANS OQEUR 1200 (D - Rocteche d'octen te) 
co-co-L: X & # 
PR EU DES ASCI sur le secteur, la piste, la 
XE—- n 
li-li-1:GOSUB 1385:GOSUÛUB 1415 ELSE IF x? se eu rat CRE 
sa R THEN GO SUB 1395:li=-li+1:GOSUB 1385:G disquette, le bloc ou le programme 
selon le choix initial (à partir de 
l'adresse courante +1). (A) pour ar- 
AIR, CLOCATERL ST 18: PRENIN LE HRIRANCA 38 (PIECE 
Tee AR ge: ALL, ARBOS GOTQ 1510 pr 
X = . x =" [TI ! 
NP SAUT UE citer ibm do 
XF= . = +1: 4 
36:G0SUB 1565 ELSE IF x 42h €" AND co1>6 TH pour sélectionner l'étendue de la 
TE NT SU AND cote? ŸHEN COSUR 1800: STE ane 
o1+1:GO UB LES dns a ant cu (C) - Cople sur la zone éditée d'une 
+ 2. Luigi at ETS 
tco8>radrltlilx8tcol Th N'GoSUB 1880112 zone mémoire. Mêmes touches pour 
=lie-1: ; = e 
CESIHENÇGOSUB 1580:112-118#1:GOSUB 1600: serie l'étendue de la zone 
estination. 
eady 
save "“s4",b,&c000,&4000 (PF) - Remplir une zone éditée avec 
un octet. Mêmes touches pour sé- 
RE NUIT NON D RE LIN A, 
TE MTS tt MILLES D Larmes a ét di " 
.COoOc=-co - 
LSE IF xf=-"@"THEN RETURN (A) RSS AIO RS ARR 
1565 LOCATE 7+co1ix3, lii+1:PRIN ; :LOCA moire. 
TEN2.9,S:PRINT#8, HEKS (ad ilrlR8tcoi 4): 
1575 LOCATE 10+c02%3,1i2+1:PRINT" “LOC 
ATEHe,9,10:PRINTHES, HÉX# (adre+licxB+coë 
d ILOCATÉRE 9, LI: PRINTHS, RENE Cadres ren6t 
co2-adri-11i1#8-co1+1,4);::RETURN 
1600 IF 1iè=-1 THEN Îi2-0:adre- adr2-8:PO 
KE &B285 ,O0:CALL &EFA?7,adrè:IF adre-adr1+ 
li1%8 THÉN LOCATE 7+co1x3, i PRINT 30 :RE 
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DiscPACK . BAS 


5 SPEED KEY 19,1:KEY DEF 66,9,9,9,9:POKE KBE78,255:POKE )AG 
&BE66, L:NEMORY &7D7F 


18 MODE 2:LOAD'"discpack.cod":LOAD"discpack. ser" )BQ | 
15 WINDOW#1,2, 49,2, 14:PAPER#1,D:PEN#1, 1:WINDOWE2,51,89, >KD 

5,15:PAPER#2, 9:PENN2, 1 :VINDOWK3,5, 44, 4, 12 

28 WINDOW SWAP 1,8 MA 

25 ' )LG 
39 CLS#2:CLS:CLEAR:GOSUB 1965 :CLS#2:LOCATEH1, 2, L:PRINTH PR 
L,STRINGS (48, "") :LOCATE#1, 2, 15:PRINT#1, STRING$(48,"") 

35 LOCATE#1,53,3:PRINTH, "X MENU PRINCIPAL "TX 
Y'XT:PRINT" #*#DISCPACK Version CPC 464 + DD] 
#x" 

49 PRINT:PRINT" Faites votre choix :":PRINT:PRINT"*18 - >CW 
Desassembleur PROGRAMME / ROM.":PRINT"°28 - Catalogue 
d'une disquette. ":PRINT"*38 - Restructurer une disquett 
e.":PRINT""48 - Explorer une disquette.":PRINT"°58 - Ed 
iter une disquette." 

45 x$=INKEYS: IF x$="{"THEN 55 ELSE IF x$="2"THEN 75 ELS 24 
E IF x$="3"THEN 455 ELSE IF x$="4"THEN 575 ELSE IF x$=" 
S'THEN 1975 ELSE 45 

59 ? )LE 
55 CLS:LOCATE#, 1, 1:PRINTH{,"+--ADR--+---CODE---+-ASCI- LM 


+----DESASSEMBLAGE----- +" :LOCATEH1, 1, 15:PRINT#{, "+----- 
tsssessnsee +----- +" :LOCATE#,53,3:PRINT#1,"X DESASSEN 
BLER UN PROGRAMME ";"X" 

69 RESTORE 69:FOR t=6 TO 11:READ a$:LOCATE#1,52, t:PRINT PJ 
#1, a$:NEXT:DATA "Prog. :°," "Debut :", "Start :", "Long 
“4""Fin :* 


65 POKE &FFB7,425:CALL &E7CE:RUN"DISCPACK. PR2" )QN 
7 )LG 
75 LOCATER1,53,3:PRINT#1,"X CATALOGUE D'UNE DISQUETTE " >NG 


3 "X":LOCATEH!, 1, L:PRINT#1,"+-Us, -+-FICHIERS.EXT-+-TYPE- 

+--ETATS--+-Ko-+-B11-+":LOCATE#, 1, 15: PRINTH#1, "+----- +- 

CCE ÉÉREERES PERECEEERE EEE. 

88 CLS:CLEAR:GOSUB 1965:RESTORE 89:FOR t=6 TO 12:READ a )VP 

$:LOCATE#1, 52, t:PRINTH1, a$:NEXT:DATA "Type format :0","N 

b fichiers:0", "Place libre:0"," ","Debut :0","Start :0" 
"Long. :0" 

85 POKE &DD81,8C9:POKE &DF4D,8:POKE &D7E2,8&FF 

89 a$="Introduire la disquette a etudier.":GOSUB 285:CA 

LL &DD58:IF PEEK(&FFC7)>8 THEN GOSUB 275:1F e=k48 THEN 

88 ELSE 25 

95 CALL &D7C1:IF PEEK(&FFDZ)(>8 THEN CALL &DE53 

199 LOCATE#1,64,6:1F PEEK(&FFD3)=&C1 THEN PRINT#1," DAT 

A":pnax=178 ELSE IF PEEK(&FFD3)=k4{ THEN pmax=169:PRINT 

#1," Vendor"ELSE IF PEEK(&FFD3)=&1 THEN pmax=154:PRINTH 

1," IBM"ELSE pnax:8:PRINT" Non reconnu" 

195 GOSUB 499 

119 IF PEEK(&FFDA)=9 THEN n$="Disquette vierge. 0":GOSUB >WH 

285:G0T0 25 

115 DIH K(PEEK(&FFDD)+1):p=1:t=1 )AB 

129 IF PEEK(39392+px32+12))9 THEN p=p+1:G0T0 129 ELSE k >LX 

(t)=p:p=pti 

125 IF t=PEEK(&FFDA)THEN k(t+1)=PEEK(&FFDA)+{ ELSE t=t+ LY 

1:G0TO 128 


HF 
)EL 


>Nk 
)AK 


>& | 





138 pp=2'CLS DJF 
135 p=ppx13+1:FOR f=1 TO 13 )UG 
149 IF p>PEEK(&FFDB)THEN 199 ELSE z=39392+k(p)x32 RY 
145 LOCATE 2, f:PRINT"&";HEXS$(PEEK (2), 2); :LOCATE 8, f )WD 


159 FOR t=1 TO B:PRINT CHR$(PEEK(z+t)AND 127); :NEXT:PRI DHD 


NT": 


155 GOSUB 298 )JB 
168 GOSUB 399 >GK 
165 LOCATE 19,f:PRINT CHR$(PEEK(z+11)AND 127); >PV 
178 LOCATE 39,f:PRINT USING"###K";PEEK(z+17); PM 
175 LOCATE 45,f:PRINT"&";HEXS$(PEEK(2+16),2); NX 


189 LOCATE 23,f:IF PEEK(z+31)=255 THEN PRINT" ? "::GOTO )DW 
198 

185 IF PEEK(z+18):9 AND P£EK(z+19)=8 THEN GOSUB 319 ELS DKV 
E PRINT'ASCI";:POKE 2+18,255 

198 p=pti:NEXT:CALL &BB93:LOCATE 1,1:PRINT">":p=pp#13+1 DVF 
:GOSUB 255:f=1 

195 x$=UPPERS(INKEYS):1F x$="P"THEN 228 ELSE IF x$="A"T DNL 

HEN 89 ELSE IF x$="""AND f)1 THEN t=-1:GO0TO 225 ELSE IF 
x$="UMTHEN 219 ELSE IF x$="D"THEN 215 

298 IF x$="!"AND f<13 AND p<PEEK(&FFDB)THEN t=1:G0T0 22 >WV 

5 ELSE IF x$="E"THEN 239 ELSE IF x$="R"THEN 328 ELSE IF 
x$="S"THEN 358 ELSE IF x$="M"THEN 25 ELSE IF x$="U"AND 
PEEK(z) OGES THEN 419 

295 IF x$="|"AND PEEK(z+18)<255 AND PEEK(2+31)€255 THEN DLY 
439 ELSE 195 

219 t=PEEK(z+9)X0OR 128:F0R a=8 TO k(p+1)-k(p)-1:POKE z+ >BG 

9+a*32,t:POKE 2+9-2948+ax32, t:NEXT:GOSUB 294:G0T0 195 

215 t=PEEK(z+19)X0R 128:FOR a=ÿ TO k(p+1)-k(p)-1:POKE z DFU 
+19+ax32,t:POKE 2+19-2848+ax32, t:NEXT:GOSUB 399:GO0T0 19 

5 

229 pp=ppti:IF ppx13+1)PEEK(&FFDA)THEN 138 ELSE CLS:G0T )EZ 
0 135 

225 LOCATE 1,f:PRINT" "s:f=f#t:LOCATE 1,f:PRINT">":p=p+ )CG 
t:GOSUB 255:G0T0 195 

239 t=PEEK(z)XOR 4&E5:IF 9 AND tO8RES THEN t=&ES )RY 

235 LOCATE 2,f:PRINT"&";HEX$(t,2);:FOR a=9 TO k(p+1)-k( DAJ 
p)-1:POKE 2+ax32,t:POKE z-2948+ax32,t:NEXT:GOSUB 349 
248 IF t=&E5 THEN POKE &FFDD, PEEK(&FFDD)+1:POKE &FFD1,P >PA 

EEK(&FFD1)-PEEK(z+17)ELSE POKE &FFDD, PEEK(&FFDD)-1 :POKE 
&FFD1,PEEK(&FFD1)+PEEK(z+17) 

245 GOSUB 498:G0T0 195 )QQ 

259 LOCATE#1,2,16:PRINTH1,n$;"O":RETURN )JK 

255 2=39392+k(p)+32:1F PEEK(z+31)=255 THEN FOR t=19 TO DYV 
12:LOCATE#1,69, t:PRINT#1," !? : Erreur secteurO":NEXT:R 

ETURN 

268 1F PEEK(z+18)=255 THEN FOR t=19 TO 12:LOCATE#1,69,t >LP 
:PRINT#," ?0":NEXT:RETURN 

265 t=19:z1=PEEK(z+23)+PEEK(z+24)4256:GOSUB 278:t=12:z1 >2J 

=PEEK(2+26)+PEEK(z+27)#256:GOSUB 27ÿ:t=11:21=PEEK(z+28) 

+PEEK(2+29)#256:G0SUB 279:RETURN 

279 LOCATE#1,69,t:PRINTH#{, "&":HEXS(z1,4):;" (Mszis")0"eR DGN 

ETURN 

275 e=PEEK(&FFC7):1F e=k48 THEN n$="Pas de disc dans le >KH 
lecteur 'H"ELSE IF e=&k4i THEN a$="Piste non formatee ! 

H'ELSE IF e=k42 THEN n$="Disc protege en ecriture !H"EL 

SE IF e=&44 THEN n$="Format non standard !H"ELSE n$:"Er 
reur de disquette !H* 

289 POKE &BB5A,&C9:CALL &E7BD:POKE &BB5A, KCF:POKE &FFC7 BU 
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285 GOSUB 258:CALL &BB93:CALL &BB18:m$="":GOSUB 259:RET >DH 

URN 

299 LOCATE 17,f:PRINT CHR$(PEEK(2+9)AND 127); :LOCATE 38 DCD 

,f:1F PEEK(2+9))&7F THEN PRINT'R/O";ELSE PRINT'R/W*; 

295 RETURN )AB 

399 LOCATE 18,f:PRINT CHRS(PEEK(2+19) AND 127); :LOCATE 3 DŸYE 

4,f:1F PEEK(Z)28E5 THEN PRINT'Eff"ELSE 1F PEEK(z+19)k7 

F THEN PRINT'SYS";ELSE PRINT'DIR"; 

35 RETURN 

319 LOCATE 23,f:1F PEEK(z+29)=9 THEN PRINT'BAS";ELSE IF 
PEEK(z+29)=1 THEN PRINT"BASp";ELSE 1F PEEK(2+2ÿ)=2 THE 
N PRINT'BIN";ELSE IF PEEK(2+28)=3 THEN PRINT"BINp";ELSE 

7 PRINT'ASCI";:POKE z+18,255 

315 RETURN 

329 n$="Nouveau nos :":GOSUB 258:c$="":a=f:CALL LBB#3 

925 d$=LEFT$(c$+SPACES(11),11) :LOCATE#1, 17, 16:PRINTH1,L 

EFT$(d$,8);",.";RIGHT$(d$,3):1F ail THEN LOCATEH{, 17+a- 

(a)7),16:PRINTHI,"_" 

339 u$=UPPERS(INKEYS):1F x$="M"AND a9 THEN a=a-{:c$=LE 

FT$(c$,a):GOT0 325 ELSE IF x$=CHR$(13)THEN 335 ELSE IF 

1$=", "THEN a=8:c$=LEFT$(c$+SPACES(8),8):G0TO 325 ELSE | 

F x$)CHR$(31)AND x$<"a"AND a<11 THEN c$=c$+x$:a=at 1: GOT 

0 325 ELSE 339 

335 n$="":GOSUB 258:1F c$=""THEN 195 ELSE c$=LEFT$(c$+S 

PACES$(11),11) 

349 LOCATE 8,f:PRINT LEFT$(c$,B);".";RIGHT$(c$, 3); :FÜR 

a=ÿ TO k(p+1)-k(p)-1:FOR b=1 TO 11:POKE z+b+ax32, ASC (MI 

D$(c$,b,1)):POKE z-2948+b+ax32, ASC(HID$(c$,b,1)):NEXT:N 

EXT 

345 GOSUB 298:GO0SUB 389:G0T0 195 

358 a$="Sauvegarde du nouveau catalogue ? (0/N)":GOSUB 

25ÿ 

355 x$=UPPERS(INKEYS):1F x$="N"THEN n$="":GOSUB 259:GOT 

0 195 ELSE IF x$C"O"THEN 355 

368 POKE &FFC7,8:POKE &DE33,&85:CALL &DD5Y:1F PEEK(&FFC 

7)9 THEN GOSUB 275:G0T0 395 

365 POKE &FFCB,&82:POKE &DE33, k64:t:1 

378 22=39392+k(t)#32:1F PEEK(22+39)=255 THEN POKE &FFCC 

,PEEK(22+16):CALL &DFA{ ELSE 399 

375 IF PEEK(RFFC7)>9 THEN GOSUB 275:G0T0 395 

388 z1=PEEK(kB244)x256+PEEK(&8243)-PEEK (48215) -PEEK (482 
16)+PEEK(22+23)+PEEK(z2+24):POKE &8215,PEEK(z2+23) : POKE 
&8216,PEEK(22+24):POKE k6244, INT(z1/256):POKE &8243,z1 

-PEEK(&8244) 256 

385 POKE &DE33,&B5:CALL &DFA1:POKE BDE33,&B4:1F PEEK(&F 

FC7)>9 THEN GOSUB 275:G0T0 395 

398 t=t+1:1F tC=PEEK(RFFDS)THEN 379 

395 n$="":GOSUB 258:G0T0 195 

499 w=paax-PEEK(&FFD1) :LOCATEN,64,8:1F p<g THEN PRINT# 

1," ?20"ELSE PRINT#HI,w; "Ko" 

495 LOCATER1,64,7:w=PEEK(&FFDB)-PEEK(&FFDD) :PRINTHI, 45" 

+"; PEEK (&FFDD) ; "Ef fO":RETURN 

419 n$="Nouveau User (sauf ke5): &_":GOSUB 25f:a$="" 

415 x$=UPPERS(INKEY$):1F x$=""THEN 415 ELSE IF INSTR("Z 

1234567989ABCDEF", x$) 29 AND LEN(a$)<2 THEN a$=a$+x$:LO 

CATE#1,28, 16:PRINT#1,a$:GOTO 415 

429 IF x$="M'THEN 419 ELSE IF x$=CHR$(13)AND LEN(a$)=2 )QB 

THEN 425 ELSE 415 


>2D 
>HK 


>B4 
UN 


)DE 
Ju 
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425 1F VAL("&"+a$)=&ES THEN 419 ELSE POKE z,VAL("&"+a$) DMT 
:POKE 2-2948, VAL("&"+a$) :LOCATE 2, f :PRINT"&";HEX$ (PEEK( 
2),2);:m$="":GOSUB 258:G0T0 195 

439 m$="Nouvelle implantation : &___":GOSUB 25ÿ:a$="" )JX 
435 x$=UPPERS(INKEYS):1F x$=""THEN 435 ELSE IF INSTR("# )QQ 
1234567989ABCDEF", x$)9 AND LEN(a$)<4 THEN a$=a$+x$:LO 
CATER 1,27, 16:PRINTH1,a$:GOTO 435 

449 IF x$="M"THEN 439 ELSE IF x$=CHR$(13)AND LEN(a$)=4 >QM 
THEN 445 ELSE 435 

445 n$="":GOSUB 25:z21=VAL("&"+a$)-(VAL("&"+a$)<D)x6553 >LK 
6:1F PEEK(z+23)+PEEK(z+24)#256=21 THEN 195 ELSE POKE z+ 
38,255:POKE z+24,INT(21/256):POKE z+23,21-PEEK(z+24) #25 
6:GO0SUB 265:G0T0 195 

459 )RK 
455 CLS:LOCATER1,53,3:PRINT#1, "X RESTRUCTURER LA DISQUE >RN 
TTE LE À 

469 CLEAR:GOSUB 1965:POKE &DDB1, &C9 )CX 
465 PRINT*Faites votre choix : )CE 
#78 PRINT:PRINT""18 - Formatage disquette. ":PRINT""28 - MY 
Corriger catalogue bidon.":PRINT"*38 - Refragmenter di 
squette.":PRINT"*48 - Proteger/deproteger fichier Basic 
.":PRINT"®MS - Menu principal." 

475 x$=UPPERS(INKEYS):1F x$="1"THEN 489 ELSE IF x$="2"T DUR 
HEN 515 ELSE IF x$="3"THEN 535 ELSE IF x$="N"THEN 25 EL 
SE IF x$="4"THEN 1895 ELSE 475 

488 p=9:CLS:PRINT"Type de format (formatage 41 pistes) 
{":PRINT:PRINT"*D8 - Data Only":PRINT"'*V8 - Vendor":PRI 
NT"*18 - IBM" 

485 x$=UPPERS(INKEYS$):1F x$="D'THEN a=kCÿ ELSE IF x$="V >KM 
"THEN a=&49 ELSE IF x$="I"THEN a=f:p=8 ELSE 485 

498 POKE &FFCB,&9A:POKE &FFC8,9:POKE &FFC9,a+ti:POKE RFF DKJ 
DC, p:POKE &DE33,486:1F p=9 THEN RESTORE 565 ELSE RESTOR 

E 579 

495 FOR t=9 TO 49:POKE &9ADO+t,G:NEXT:FOR t=1 TO p:READ DUT 
c:POKE &9Aÿ2+(t-1)x4,atc:POKE &9A93+(t-1)#4,2:NEXT 

599 a$="Inserrer la disquette a formater, non protegee DEA 
en ecriture.":G0SUB 285 

595 CLS:PRINT"Traitenent Piste :  /k29":LOCATE 1,1 CM 

519 POKE &ABA9,p:CALL &EGE4:IF PEEK(&FFC7)>9 THEN GOSUB ZW 
275:G0T0 455 ELSE 455 

515 CLS:m$="Inserer la disquette a modifier, non proteg DHE 
ee en ecriture.":G0SUB 285 

528 CALL &DD58:1F PEEK(&FFC7)>9 THEN GOSUB 275:G0T0 455 >YQ 


)HB 


525 CALL &D7C1:1F PEEK(&FFD#)=9 THEN n$="Pas de catalog )PY 
ue .":GOSUB 285:G0T0 455 ELSE POKE &DE33,&85:POKE 8DD57 

, &OA 

538 CALL &DD59:1F PEEK(&FFC7)>4 THEN GOSUB 275:G0T0 455 )GB 
ELSE 455 

535 CLS:m$="Inserer la disquette a restructurer, non pr )ME 
otegee en ecriture.":G0SUB 285:POKE &DF4D,9 

54ÿ CALL &E559:1F PEEK(&FFC7)>9 THEN GOSUB 275:G0T0 455 )CC 
ELSE 1F PEEK(&FFD9)=255 THEN m$="Disquette non standar 

à DATA ou Vendor .0Operation impossible ! ":GOSUB 285:G0 

TO 455 

545 CALL &DD59:1F PEEK(&FFC7)>9 THEN GOSUB 275:G0T0 455 DYY 


558 CALL &D7C1:1F PEEK(&FFD#)=9 THEN n$="Pas de catalog >KA 
ue .":GOSUB 285:G0T0 455 





555 PRINT'Traitement Bloc : 
EN PRINT'RBS"ELSE PRINT"&AA" 
569 LOCATE 1,1:CALL &E586:1F PEEK(KFFC7)>8 THEN GOSUB 2 
75:G0T0 455 ELSE 455 


["321F PEEK(&FFD2)=8 TH TV 


»>XC 


565 DATA 1,6,2,7,3,8,4,9,5 TK 
578 DATA 1,5,2,6,3,7,4,8 0H 
575 ? )TH 
589 CLS:CLS#2:CLEAR:GOSUB 1965:POKE &DD81,4C9:LOCATE#1, DAL 


53, 3:PRINT#{1, "XEXPLORATION D'UNE DISQUETTE";"X" 

585 PRINT'Faites votre choix :":PRINT:PRINT" ‘18 - Capac 
ite d'une disquette protegee.":PRINT"*28 - Occupation p 

ar bloc.":PRINT"*38 - Exploration par piste.":PRINT"‘°M6 
- Menu principal." 

599 x$=UPPERS(INKEYS):1F x$="1"THEN 595 ELSE IF x$="2"T 

HEN 729 ELSE IF x$="3"THEN 859 ELSE IF x$="M"THEN 25 EL 
SE 594 

595 FOR t=&A299 TO &A2B6:POKE t,B:NEXT:CLS:m$=" Introdui 
re la disquette a analyser.":GOSUB 285:CALL &DD58 

689 IF PEEK(&FFC7)>9 THEN GOSUB 275:G070 589 ELSE IF PE 
EK(&FFD2)=1 THEN a$="Format IBM. Operation non pernise 
.":GOSUB 285:G0T0 588 ELSE 1F PEEK(&FFD2)=9 THEN POKE & 
FFD8,&4B4:v=178 ELSE POKE &FFDB, &AB:v=169 

685 CALL &D7C1:1=9:FOR z=3944ÿ TO 41456 STEP 32:1F PEEK DRT 
(2)<&E5 THEN FOR t=g TO 15:1=1-(PEEK(2+t)>9):NEXT 

686 NEXT 

619 m$="Voulez vous un formatage des pistes non formate 

es ?":GDSUB 259 

615 x$=UPPERS(INKEYS):1F x$="N"THEN n$="":GOSUB 258:GO0T >KR 
0 649 ELSE IF x$C"O"THEN 615 | 

629 n$="":GOSUB 259:FOR t=kA38ÿ TO &A328:POKE t,S:NEXT: 
RESTORE 629:FOR t=1 TO 9:READ c:POKE &A392+(t-1)#4,PEEK 
(BFFD3)+c:POKE &A393+(t-1)#4,2:NEXT:DATA 8,5,1,6,2,7,3, 
8,4 

625 POKE &FFCB,B:POKE &FFC9, PEEK(RFFD3) :PRINT"Test form DYT 


)ZU 


)EE 


EH 
)PL 


WG 


at piste : /&29";:CALL &DFAF 

638 IF PEEK(&FFC7)>8 THEN GOSUB 275:G0T0 589 )LN 
635 PRINT >PG 
649 PRINT"Test bloc courant : /&":HEX$(PEEK(&FFDB)-1) >XG 


;:CALL &E746 

645 CLS:PRINT'Place libre :":PRINT"Catalogue :";64-PEEK CV 
(&FFD#) ;"fichiers":PRINT"Disquette :";PEEK(&FFD1) ; "Ko" 

659 v=v-PEEK(&FFDI)-1:f=INT(v/16)+1:1F v=9 OR F+PEEK(&F WP 
FDS)>64 THEN m$="Conformæe au catalogue.":G0SUB 285:GOTO 
588 

655 n$="Voulez vous la sauvegarde du catalogue nodifie 
2":GOSUB 258 


)JN 


669 x$=UPPERS(INKEYS):1F x$="N"THEN 588 ELSE IF x$<>"D" DHT 
THEN 669 

665 a$="":GOSUB 258:z=&RO9ASD+PEEK(&FFD@) #32 : 22=4A292 : PDK DDX 
E 22-2+PEEK(&FFD8),255 

679 FOR t-9 TO f-1:RESTORE 678:FOR k=9 TO 15:READ c:PDK DJJ 
E 2+k,c:NEXT:POKE z+12,t:DATA 9,85, 84, 73, 76,73, 83,69, 32 

, 32,32, 32,9,8,9,9 

675 n°4 )QD 
689 IF PEEK(Z2)=1 THEN n=n+1:POKE z+154n, z2-&A299 )RC 
685 IF PEEK(22):255 THEN 798 ELSE z2=22+1 )GU 
699 1F n=16 THEN POKE z+15,869 ELSE 689 DJ 
695 2=2+32:NEXT )LH 
798 POKE 2+15,nx8 )LD 











785 n=nti:1F n°17 THEN 719 ELSE POKE z+15tn,9:GO0T0 795 WW 
719 POKE &DD57,89A:POKE &FFC7,8:POKE &DE33, &85:CALL &DD DAY 
59 
715 IF PEEK(&FFC7)>9 THEN GOSUB 275:G0T0 655 ELSE 584 DV 
725 CLS:SYMBOL 255,1,1,1,1,1,1,1,255:SYMBOL 254,168,84, >MD 
166,84,168,84,168,8:SYMBOL 253,254, 254,254,254, 254,254, 
254,8 
725 PRINT:PRINTM  #H##4 #44 EH EEE EEHEEEEHAEEEE DCK 
+++++#4#": FOR t=9 TO 1 STEP-1:PRINT USING" #i";t; :PRINT 
SPACES (42) ;MIMeNEXT: PRINT HE EEE EEE HAE EEE EEE 
HHHHHHEEEEEEHEEEEEU PRINT" 19 29 
38 ag"; 
739 CLSH3:RESTORE 739:FO0R t:6 TO 15:READ a$:LOCATE#1,52 )CB 
»C'PRINTH1,a$:NEXT:DATA "Format  :0","Fichiers :0","In 
occupe :0"," ","Piste :0", "Secteur :0","Bloc :0 
"," *, "Non Prog. :0", "Longueur :0" 
735 n$="Introduire la disquette a analyser.":GOSUB 285: )BL 
CALL &DD5ÿ 
714$ IF PEEK(&FFC7)>9 THEN GOSUB 275:G0T0 588 )LQ 
745 CALL &D7C1:1F PEEK(&FFDZ)C>8 THEN CALL &ED5ÿ )PJ 
759 LOCATE#1,62,6:1F PEEK(&FFD3)=&C1 THEN PRINT#{," DAT DUT 
A0" :pnax=178 ELSE IF PEEK(&FFD3)=&41 THEN pnax=169:PRIN 
TH," VendorO"ELSE pnax:154:PRINT#1," IBM" 
755 LOCATE 4+PEEK(&FFD2),8:PRINT"d-!i-tr-1" DPR 
769 LOCATE#1,62, 7:PRINT#1,PEEK(&FFD#) :LOCATEN1,62,8:PRI DPA 
NT#1, pnax-PEEK(&FFD1) :"Ko" 
765 IF PEEK(&FFD9)=9 THEN m$="Disquette vierge .":GOSUB >XJ 
285:G0T0 575 
7179 POKE &FFE1,254:FOR t=1 TO PEEK(&FFD9):POKE &FFEG,t: DUG 
CALL &EDB5:NEXT 
775 LOCATE 1,1:PRINT CHR$(23)+CHR$(1) :pst=PEEK(&FFD2):5 
ct=1:GOSUB 795:cd=6:gel=# 
789 x$=UPPERS(INKEYS):1F x$="-"THEN GOSUB 888:pst=pst-1 >VY 
:GOSUB 815:G0SUB 795 ELSE IF x$="-"THEN GOSUB 898 :pst=p 
st+1:GO0SUB 815:G0SUB 795 ELSE 1F x$="-"THEN GOSUB 898:5 
ct=sct+1:GOSUB 819:GO0SUB 795 ELSE IF x$="-"THEN GOSUB 8 
ÿg:sct=sct-1:GOSUB 819:GO0SUB 795 
785 IF x$="G"THEN GOSUB 848 ELSE IF x$="M"THEN 575 ELSE oUH 
IF x$="Y"THEN 1928 
798 GOTD 789 )AH 
795 blc=INT(((pst-PEEK(&FFD2) )}x9+sct-1)/2) :LOCATE#1,62, DEU 
18: PRINT#1, pst :LOCATEH1, 62, 11:PRINTH#1, "&":HEXS$(PEEK(&FF 
D3)+sct-1):LOCATE#1, 62,12:PRINT#1, "&":HEX$(blc,2):1F PE 
EK(&92ÿ8+blc)<>cd THEN GOSUB 825 
899 TAG:MOVE 32+pstx48,296+sct#16:PRINT CHR$(255) : :TAGOF )CB 
F 
895 RETURN )2J 
818 IF sct=19 THEN sct={:pst-pst+1 ELSE IF sct=8 THEN s DUN 
ct=9:pst=pst-1 
815 IF pst<PEEK(&FFD2)THEN pst=39 ELSE IF pst>39 THEN p DTC 
st=PEEK(&FFD2) 
829 RETURN )ZF 
825 IF gel=1 THEN RETURN ELSE IF cd=ÿ THEN 838 ELSE POK >VN 
E &FFES, cd:POKE &FFE1,254:CALL &EDB5 
838 cd=PEEK(&9299+blc):1F cd(9 THEN POKE &FFES, cd:POKE )CP 
&FFE1,253:CALL &EDB5:LOCATE#1,62, 15:PRINT#1, PEEK(&FFE2 
);"Ko0":CALL &EES8 ELSE LOCATE#,62, 14: PRINT#1, "0": LOCA 
TE#1,62, 15:PRINT#1, "0" 
835 RETURN 


)LQ 


AB 
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849 IF gel=8 THEN gel=1:LOCATE 45,1:PRINT"Gel":RETURN 
845 gel=9:LOCATE 45, 1:PRINT" 


AC 
*:1F PEEK(&9289+ble)C>cd DV 
THEN GOSUB 899:G0SUB 825:GO0SUB 889:RETURN ELSE RETURN 


859 CLS:PRINT" ";CHR$(157) ;SPACES (42) ;CHR$(149):FOR t= >2ZD 
9 TO 1 STEP-1:PRINT USING" #+";t;:PRINT SPACES(42);"1": 
NEXTSPRINTU HE EEEEEEEE EEE EEEEEEEEEEEEEEEEEE 
++" 

855 SYMBOL 255, 126,99, 74, 82,98,98,126,8:SYMBOL 254,8, 64 
, 72,96, 184, 129, 126,9:SYMBOL 253, 126, 192, 99,99, 99, 192, 12 

6,9:SYMBOL 252,126, 118, 192, 118,118, 118, 126,9:SYMBOL 251 
, 126, 192,98, 118,119,66,126,9:SYMBOL 259, 126,66, 122, 192, 
122,79,126,9 

869 SYMBOL 249,126, 118,119, 99, 66, 122,126, 8:SYMBOL 248,1 
26,66,94, 79, 122,79,126,9:SYMBOL 247, 126, 79,122, 182,119, 
119,126,9:SYHBOL 246, 126, 78,94, 78,94, 78,126,8:SYMBOL 24 
5, 126, 122,114, 192, 78,94, 126,9 

865 n$="Introduire la disquette a analyser.":G0SUB 285: 
LOCATE 1,13:PRINT'"Exploration piste:  /429*;:LOCATE 1 
,13 

879 CALL &EEED:IF PEEK(&FFC7)>9 THEN GOSUB 275:G0T0 588 
ELSE LOCATE 1,13:PRINT"0"; 

875 LOCATE {,13:PRINT"Format: Piste: Secteu 
rs:"3;:LOCATE 9,13:1F PEEK(&A89F)=&41 THEN PRINT"Vendor" 
;ELSE IF PEEK(&AB9F)=&C1 THEN PRINT'DATA";ELSE PRINT'"IB 
M"; 

888 pst:9:z-33289:ref=PEEK(&AB9F) 

885 n=PEEK(z):1F n=255 THEN z=z+1:G0T0 935 

899 IF n>19 THEN LOCATE pst+4, 1:PRINT CHR$(254);:mx=9 E 
LSE mx=n 


895 2=z+1:FOR t=1 TO mx >RG 
998 IF PEEK(z)Opst THEN 5=253-PEEK(z+3) :GOTO 925 )TV 
995 IF PEEK(z+1))9 THEN 5=253-PEEK(2+3) :GOTO 925 )QL 


919 IF ABS(PEEK(z+2)-ref)>8 THEN 5=253-PEEK(z+3) :GOTO 9 
25 


915 IF PEEK(z+3)<)2 THEN 5=253-PEEK(z+3):GOTO 925 )RY 
929 5=255 >DG 
925 LOCATE pst+4,11-t:PRINT CHR$CMAX(247,5)); >PG 
939 z=z+4:NEXT:z=2+4x(n-mx) »XC 
935 pst=pst+i:IF pst(42 THEN 885 D AU 
949 pst=f:LOCATE 4,12:PRINT"!":GOSUB 97ÿ )JD 


945 x$=UPPERS(INKEYS):1F x$="-"AND pst>9 THEN LOCATE 4+ 
pst,12:PRINT" ":pst=pst-1:LOCATE 4+pst, 12: PRINT" !":GOSU 
B 978 

958 IF x$="-"AND pst(4i THEN LOCATE 4+pst,12:PRINT" ":p DNR 
st=pst+{:LOCATE 4+pst, 12:PRINT"!":GOSUB 978 


955 IF x$="W"AND PEEK(z)<>255 THEN 975 DER 
969 IF x$="M"THEN 575 ELSE IF x$="C"THEN 1929 >KU 
965 GOTD 945 )BE 


979 CALL &EF2B, pst:2=PEEK(&FFCB)#256+PEEK(&FFCA) :LOCATE )GM 
23,13:PRINT USING"##";pst; :LOCATE 37,13:1F PEEK(2)=255 
THEN PRINT" No format.";:RETURN ELSE PRINT USING"## 

";PEEK(2z) ; :RETURN 


975 CLS#2:PRINT#2:PRINT#2, "No Pt Hd Sc Lg Warning”; >DQ 
988 22=2+1 DPF 
985 k=ÿ:FOR t=1 TO PEEK(z) )UQ 


998 PRINTH2:PRINT#2,USING"HE çç çç çç çç "it: HEXS(PEEK DGE 
(22),2) ;HEX$(PEEK(z2+1),2) ;HEX$(PEEK(22+2),2) ;HEX$(PEEK 
(2243),2); 

995 IF PEEK(z2)Opst OR PEEK(z2+3)>5 THEN PRINT#2,"DE " DAU 
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1998 1F PEEK(z2+1)C8 THEN PRINT#2, "BH"; 
1995 z2=z2+4:k=k+i:IF k=9 THEN IF t<PEEK(Z)THEN CALL &B 
B3:CALL &BB1B8:CLS#2:PRINTH2:PRINT#2, "No Pt Hd Sc Lg W 


>GV 
LM 


arning";:k=$ 

1918 NEXT XKD 

1915 CALL &BB#3:CALL &BB18:CLS#2:GOT0 945 HN 
)BZ 


1829 a=pst:pst=8:z-33289:LOCATE 37, 13:PRINT" 


1925 LOCATE 23,13:PRINT USING"##";pst;:n=PEEK(z):IF n=2 DZN 
55 THEN z=z+1:G0T0 1969 ELSE POKE &FFC8, pst:CALL &EF49: 
OUT RFATE, 1 

1939 z=2+1:FOR t=1 TO MIN(n,18) 

1935 OUT &FB7F,&46:OUT &F37F,9:OUT &FB7F,pst:OUT &FB?F, 
B:OUT &FB7F,PEEK(z+2) :OUT &FB7F,PEEK(z+3) :OUT &FB7F,PEE 
K(z+2):OUT &FB7F,42:OUT &FB7F,PEEK(z+3):CALL &EF71 

1849 rO=INP(&FB7F):ri=INP(&FB7F):r2=INP(&FB7F):FOR i=1 
TO 4:k=INP (&FB7F) :NEXT 

1845 1F r9=64 AND r2=8 AND r1:128 THEN 1955 ELSE IF r#= 
ÿ AND r2=64 AND r1:8 THEN 5=246 ELSE 5=245 

1858 1F t(19 THEN LOCATE 4tpst,11-t:PRINT CHR$(S);ELSE HZ 
IF n=19 THEN LOCATE 4+pst,11-t:PRINT CHR$(s); 

1955 z=2+4:NEÏT: IF n>19 THEN z=zt4#(n-19) 

1968 pst=pst+1:1F pst(42 THEN 1925 ELSE pst=a:GOSUB 978 
:GOTO 945 

1965 DEFINT a-y:n$="":GOSUB 258 

1978 POKE &FFC6,#:POKE &FFC7,9:POKE &FFCA,8:PO0KE &FFCB, 
&92:POKE &FFD9,8:POKE &FFD1,9:POKE &FFDA,#:POKE &FFDD, 9 
:POKE &FFDF,8:POKE &FFE2,9:POKE &DD81,&21:POKE &DE33, 88 
4:POKE &DD57,892:POKE &DF4D,&77:POKE LD7E2, &ES: RETURN 
1975 ? 

1989 LOCATE#1,53,3:PRINT#1,"XEDITER/DUMPER UNE DISQUETT 
E";"x" 

1985 CLS:CLS#2:CLEAR:GOSUB 1965:POKE &DD81, 8C9:PRINT"Fa 
ites votre choix :" 

1898 PRINT:PRINT"°18 - Editer une piste.":PRINT""28 - E 
diter un bloc.":PRINT"*38 - Editer un programme. ":PRINT 
"°MS - Menu principal." 

1995 x$=UPPERS(INKEYS):1F x$="MMTHEN 25 ELSE IF x$="1"T 
HEN 1199 ELSE IF x$="2"THEN 1235 ELSE IF x$="S3"THEN 147 
5 ELSE 1995 


JYR 
DK 


NH 


1198 CLS:pst=9 )BE 
1195 GOSUB 1365:G0SUB 1435 UE 
1119 LOCATE#2, 18,2:PRINT#2, USING"X##{";pst )MB 


1115 x$=UPPERSCINKEYS):1F x$="-"THEN pst=pst-1:G0SUB 13 >KA 
#4:GOT0 1119 ELSE IF u$="-"THEN pst=pst+i:GOSUB 1399:G0 

T0 1119 ELSE IF x$="W"THEN LOCATE#?, 19,2: PRINT#2, USING" 
th"spst ELSE IF x$="M"THEN 1985 ELSE 1115 


1128 POKE &FFC8,pst:POKE &FFCB, &A2:CALL REE4B )NF 
1125 IF PEEK(&FFC7)9 THEN GOSUB 275:G0T0 1119 )MQ 
1138 LOCATE#?, 13, 2:PRINT#2,"-)";PEEK(&A299) ; "sect." >XD 
1135 z=41472:sc=1 )LJ 
1149 LOCATE#?, 19, 3:PRINT#2,USING"X##X";5c; :GOSUB 1239  >ZK 


1145 x$=UPPERS(INKEYS):1F x$="-"THEN sc=sc-1:GOSUB 1229 DUJ 
:GOTO 1149 ELSE IF x$="-"THEN sc=sc+1:GOSUB 1229:G0T0 1 
149 ELSE IF x$="W"THEN adr=9 ELSE IF x$="H"THEN 1195 EL 
SE 1145 

1159 LOCATE#2, 18,3:PRINTH2, USING"##";5c 

1155 GOSUB 1425:GO0SUB 1435 


HL 
>UG 


—— 





1168 LOCATE#2,11,5:1F r8=64 AND r2:8 AND r1:128 THEN PR >HB 
INT#2, "NON'ELSE IF r@=9 AND r2-64 AND r1:9 THEN PRINTH2 

, "OUI"ELSE m$="lapossible de charger ce secteur !":G0SU 

B 285:G0T0 1149 

1165 CLS:GOSUB 1314 NU 
1179 z=41472:1F x$="MTHEN CLS:GOTO 1148 ELSE IF x$="L" >VV 
THEN CLS:GOTO 1155 

1175 IF x$="S"THEN sc=sc+t{ ELSE IF x$="P"THEN sczsc-1 E DMC 
LSE IF x$="R"THEN 1784 ELSE 1295 

1188 CLS:adr=9:1F sc» AND sc(PEEK(z)+1 THEN GOSUB 1238 DKK 
:GOTO 1154 

1185 GOSUB 1365:1F scoPEEK(2)THEN pst=pst+i ELSE pst:ps DFX 
t-1 

1198 GOSUB 1389 >WH 
1195 LOCATE#2, 19,2:PRINT#2,USING"##";pst:POKE RFFC8,pst DDR 
:POKE &FFCB,&A2:CALL KEE4B:1F PEEK(&FFC7)>9 THEN GOSUB 
275:G0T0 1119 

1299 LOCATE#2,13,2:PRINT#2,"-)";PEEK(KA298) ;"sect.":IF DCR 
sc=ÿ THEN sc=PEEK(&A298) :G0TO 1189 ELSE sc=1:G0T0 1188 

1285 IF x$="E"THEN POKE KEFAI,&K7E:POKE &EFA2,&ED:POKE & DPF 
EFA3,&79:n$="Ecrire donnees effacees ? (0/N)":GOSUB 258 


1219 x$=UPPERS(INKEYS): IF x$="O"THEN cd=449 ELSE IF x$= CR 
"N"THEN cd=&45 ELSE 1219 

1215 n$="":GOSUB 254:G0T0 1155 XF 
1229 IF sc=ÿ THEN sc=PEEK(z)ELSE IF sc)PEEK(z) THEN sc=1 )AK 


1225 RETURN )FD 
1239 sct=PEEK(z+sc#4-1) :LOCATE#2, 13, 3:PRINTH2, "-> &':HE DJM 
X$(sct,2):1g=PEEK(z+scx4) :LOCATEN2, 19, 4:PRINT#2, US ING"# 
HD" lg;tlF 1g<6 THEN 1=2*1g#128:PRINTE2, li"octetsO":R 
ETURN ELSE PRINT#2," ?? octets0":RETURN 

1235 CLS:n$="Introduire la disquette a editer.":GOSUB 2 >RX 
85:CALL &DD58:1F PEEK(&FFC7)>9 THEN GOSUB 275:G0T0 1885 


1249 blm=&B1-PEEK(&FFD2)*x4.5:b1=9:FOR t=8 TO blm:POKE 4 DUN 
1472+t,t+2:NEXT 

1245 z=41472:G0SUB 1485: LOCATERZ, 11,3:IF PEEK(WFFD2)=8 DHV 
THEN PRINT#2, "ODATA"ELSE IF PEEK(&FFD2):2 THEN PRINT#2, 
"OVendor"ELSE PRINT#2, "ONon standard" :CALL &BBÿ3:CALL & 
BB18:G0TO 1985 

1259 GOSUB 1495 %XA 
1255 LOCATE#2, 11,2:PRINT#2, "XR";HEXS(PEEK(z+b1),2);"X"  DZV 
1269 x$=UPPERS(INKEYS):IF x$="-"THEN bl=bl-1:GOSUB 1419 DUV 
:GOTO 1255 ELSE IF x$="-"THEN bl=bl+1:G0SUB 1419:GO0T0 1 

255 ELSE 1F x$="U"THEN adr=8 ELSE IF x$="M"THEN 1985 EL 

SE 1268 

1265 GOSUB 1495:LOCATE#2,11,2:PRINTH2,"&":HEXS(PEEK(z+b >CB 
1),2):POKE &FFCB,&82:POKE &FFCC,PEEK(z+b1):CALL &EFEB:P 

OKE &DE33,&84:1F PEEK(&FFC7)>8 THEN nm$="Bloc non standa 

rd. lapossible de le charger.":GOSUB 285:POKE &FFC7,#:G 

OTO 1259 

1275 bit=PEEK(z+bl)#2+9#PEEK(&FFD2) :pst=FIX(bit/9):sct= DFA 
bit MOD 9+PEEK(&FFD3) 

1275 LOCATE#2, 11,4: PRINTH2, USING"##" ;pst: LOCATE#2, 11,5: DTF 
PRINT#2,HEX$(sct,2):sct=sct+1:IF(sct AND 15)=19 THEN sc 
tssct-9:pst=pst+i 

1289 1:1924:LOCATE#2, 13, 4:PRINT#2, USING" - ##";pst:LOCA DAF 
TE#2,13,5:PRINT#2," - ";HEXS$(sct,2) 
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1285 GOSUB 131$ 

1299 z=41472:1F x$="M"THEN CLS:G0TO 1259 ELSE IF x$="L" 
THEN CLS:GOTO 1265 ELSE IF x$="S"THEN CLS:bl:bl+{:adr=f 
:GOSUB 1419:G0OT0 1265 ELSE IF x$="P"THEN CLS:adr=ÿ:b1=b 
1-1:G0SUB 1419:G0T0 1265 ELSE IF x$="R"THEN 1719 


XD 
BH 


1295 IF x$="E"THEN POKE &DE33,&85:G0T0 1265 ELSE 1299 DUA 
1399 1F pst=-1 THEN pst=4i ELSE IF pst=42 THEN pst:#  DVK 
1395 RETURN )FC 


1318 CLS:FOR t=8 TO 12:POKE &B285,t+1:CALL &EFA7, adrttx 
8:NEXT 
1315 x$=UPPERS(INKEYS):1F x$=""THEN 1315 ELSE IF xg$="1" 
AND adr>4 THEN adr=adr-8:POKE &B285,9:CALL &EFA7,adr EL 
SE IF x$="!"AND adr+184(1 THEN adr=adr+8:POKE &B285, 14: 
CALL &EFA7,adr+96 ELSE IF x$="W"THEN 1325 ELSE IF INSTR 
{"MLESPR", x$)<>9 THEN RETURN 
1329 IF x$="D'THEN 1449 ELSE IF x$="F"THEN 1615 ELSE IF DJE 
X$="B"THEN 1645 ELSE IF x$="C"THEN 1655 ELSE IF x$="2" 
THEN CALL &F5C1,89299,4996,9:GOT0 1315 ELSE 1315 
1325 li=ÿ:co-ÿ:ec:9:z=33280+tadr :GOSUB 1379:GOSUB 1399 
1339 x$=UPPERSCINKEYS):1F x$=""THEN 1339. ELSE IF x$="!" 
AND ec=f THEN GOSUB 1375:1i=1i-1:GOSUB 1385:GOSUB 1379 
ELSE IF x$="!"AND ec:ÿ THEN GOSUB 1375:1i=1i+1:GOSUB 13 
85:GOSUB 1378 
1335 IF x$="-"AND ec:f THEN GOSUB 1375:co=co-1:GOSUB 13 
89:GOSUB 1379 ELSE IF x$="-"AND ec=ÿ THEN GOSUB 1375:co 
=co+{:GDSUB 1388:GOSUB 1374 
1349 IF INSTR("9123456789ABCDEF", x$) C4 THEN IF ec=ÿ TH 
EN ec=1:LOCATE 8+cot3, 1i+{:PRINT"X";x$5"aX"s :y$=x$ELSE 
ec=f:y$=y$+x$:LOCATE 8+cox3, liti:PRINT y$::POKE z+cotli 
#8, VAL("&"+y$) :GOSUB 1395:co=co+1:GOSUB 1384:GOSUB 1379 


1345 IF x$="WTHEN GOSUB 1375:GO0SUB 1415 ELSE 1339 

1358 x$=INKEYS:IF x$="-"THEN GOSUB 1395:co=co-1 :GOSUB 1 

369:GOSUB 1415 ELSE IF x$="-"THEN GOSUB 1395: co=cot1:G0 

SUB 1388:GOSUB 1415 ELSE IF x$="!"THEN GOSUB 1395:li=li 

-1:GOSUB 1385:GOSUB 1415 ELSE IF x$="!"THEN GOSUB 1395: 
1i=li+1:G0OSUB 1385:GOSUB 1415 

1355 IF x$)CHR$(31)AND x$<CHR$(128)THEN POKE z+cotlix8, 

ASC(x$):GOSUB 1375:GOSUB 1395:co=co+1:GOSUB 1389: GOSUB 

1415 ELSE IF x$="W"THEN GOSUB 1395:LOCATE#2, 11, 7:PRINT# 

2,"0":G0TO 1315 

1369 GOTO 1359 

1365 LOCATE#2,1,2:PRINT#2, "Piste : ":PRINT#2, "Secteur 
: ":PRINT#2, "Longueur: ":PRINT#2,'"Efface : ":PRINTH2: 

PRINT#2, "Adresse : ":RETURN 

1379 LOCATE 8+cox3,1i+i:PRINT" ";HEXS(PEEK(z+cot1ix8),2 DUK 
);" Ms eRETURN 

1375 LOCATE 8+cox3, 1i+i:PRINT HEX$(PEEK(z+co+1ix8),2):: DKE 

RETURN 

1388 IF co=-1 THEN co:7:1i=1i-1 ELSE IF co=8 THEN co:g: FF 
li=li+i 

1365 IF 1i=13 THEN li=g ELSE IF li=-1 THEN li=12 >NX 
1399 LOCATE#2, 11,7:PRINT#2,HEX$ (adr+co+lix8,4):RETURN AK 
1395 LOCATE 34+co,1i+1:1F PEEK(z+cotlix8)>31 AND PEEK(z DTF 

+cotlix8)<128 THEN PRINT CHRS(PEEK(z+co+lix8)):ELSE PRI 

NT", "; 

1499 RETURN 

1495 LOCATE#2, 1,2:PRINT#2, "Bloc 
!":PRINT#2, "Piste 


)RN 
>GG 


v 


BE 


>MG 
)CV 


DEJ 
t0":PRINT#2,"Forsat )AN 
:0":PRINT#2, "Secteur :0":PRINT#2:P 





RINT#2, "Adresse :0*:RETURN 
1418 IF blobln THEN bl=8:RETURN ELSE IF bl=-1 THEN bl=b )CB 
In:RETURN ELSE RETURN 
1415 LOCATE 34+co,liti:IF PEEK(ztcotlix8)»31 AND PEEK(Z )LX 
+co+1i#8)<128 THEN PRINT"X";CHRS(PEEK(z+co+1ix8));"X";E 
LSE PRINT"Y.X"; 
1428 RETURN )FA 
1425 z4=&FB7F:POKE &FFC8, pst:CALL BEF49: OUT z4,cd:OUT z >TP 
4,8: OUT z4,pst:OUT z4,9: OUT z4,sct:OUT z4, Ig:OUT z24,sct 
OUT 24,42: OUT z4,1g:CALL &EFBB 
1438 r@=INP(z4):r1=INP(z4):r2=INP(z4):FOR i=1 TO 4:k=IN DAY 
P(z4) :NEXT:RETURN 
1435 POKE REFAÏ,&ED:POKE &EFA2,&78:POKE &EFA3,&77:POKE DFX 
&EFBE, &82 : cd=&46 : RETURN 
1449 CLS:LOCATEH1, 1, L:PRINTH1,"+--ADR--+---CODE---+-ASC DYC 
1-+----DESASSEMBLAGE----- +": LOCATE#1, 1, 15:PRINT#1,"+--- 
Sniper Fes +":CALL &B1A7 
1445 IF prog=f THEN CALL &D798,88280,&81FF+1,&8289,&629 >DU 
ftadr:POKE &FFCD,k42:CALL &D646:GOTO 147 
1458 PRINT"*18 - Adresse courante du bloc.":PRINT""28 - NV 
Adresse reelle du programme" 
1455 x$=INKEYS: IF x$="1"THEN CALL &D788, &8209, KO1FF+1,& KR 
8269,&8298+tadr :POKE &FFCD,&42:CALL &D646:G0T0 1474 ELSE 
IF x$O"2THEN 1455 
1469 z=PEEK(4B615)+PEEK(K8616)+256+1924xb1-128-33289  DVZ 
1465 CALL &D798,ABS(2z),&B81FF+1,&8299,&8289+tadr:1F z<9 T >HM 
HEN POKE &FFCD,k42:CALL &D646 ELSE POKE &FFCD, L4A:CALL 
&D646 
1479 CLS:LOCATEH1,2,1:PRINTH#{, STRING$(48,"-"):LOCATE#{I, RW 
2,15:PRINT#1,STRINGS (48, "-"):CALL &B1A7:CALL &kBB93:GOTO 
1319 
1475 CLS:n$="Non du prog. :":GDSUB 258:c$="":a=ÿ:CALL & )GA 
BBÿ3 
1488 d$=LEFT$(c$+SPACES (11), 11) :LOCATER1, 17, 16:PRINTHI, WP 
LEFT$(d$,8);",";RIGHT$(d$,3):1F a<11 THEN LOCATEH1, 17+a 
-(a)7),16:PRINTHI, "2" 
1485 x$=UPPERS(INKEYS):1F x$="M"AND a>9 THEN az=a-f:c$=L >ZL 
EFT$(c$,a):GOTO 1489 ELSE IF x$=CHR$(13)THEN 1499 ELSE 
IF x$=", "THEN a=8:c$=LEFT$(c$+SPACES(8),8):GOTO 1489 EL 
SE IF x$)CHR$(31)AND x$<"a"AND a<ii THEN c$=c$tx$:azati 
:G0TO 1488 ELSE 1485 
1499 IF c$=""THEN 1975 ELSE c$=LEFT$(c$+SPACES$(11),11): TX 
FOR t=1 TO 11:POKE &FFBA+t, ASC(NID$(c$,t, 1)) :NEXT 
1495 n$="Introduire la disquette progranme .":GOSUB 285 )NF 
:CALL &DD59:IF PEEK(&FFC7)>8 THEN GOSUB 275:G0T0 1975 
1598 CALL &D/C1:FOR t=9 TO 63:POKE &9289+t#16,S:NEXT:CA )FB 
LL &F558:1F PEEK(&FFC6)=8 THEN a$="Programme non trouve 
! *:GOSUB 285:G0T0 1975 
1595 PRINT'Blocs : ";:t=@:UHILE PEEK(&9299+t) COZ:PRINT" )QA 
&";HEXS(PEEK(89299+t),2);" "ist=t+{:MEND:bim=t-1:FOR t= 
ÿ TO bim:POKE 41472+t,PEEK(&9298+t) :NEXT 
1519 POKE &FFCC,PEEK(&A299) :POKE &FFCB, &GB:CALL &EFEB:1 )CA 
F PEEK(&FFC7)39 THEN GOSUB 275:G0T0 1975 
1515 CALL &BBY3:CALL &BB18:CLS:prog=1:G0T0 1245 
1529 LOCATEH2, 1,9:PRINT#2, "Debut :":PRINT#2, "Fin 
RINTH2, "Long, :"; 
1525 n$="Choisissez l'adresse d'origine.":G0OSUB 25ÿ:adr >BV 
{=adr:1i1=8:co1=8:GOSUB 1565 
1538 x$=INKEYS:IF x$="!"THEN GOSUB 1578:1i1=1i1-1:G0OSUB )VL 


)QT 
atsP OCZ 
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1585:GO0SUB 1565 ELSE IF x$="!"THEN GOSUB 1579:1i1=1i1+ 
1:GO0SUB 1599:G0SUB 1565 ELSE IF x$="-"AND coi>9 THEN GO 

SUB 1579:coi=coi-1:G0OSUB 1565 ELSE IF x$="-"AND cot<7 T 

HEN GOSUB 1578:coi=coi+1:GOSUB 1565 

1535 IF x$O"W"THEN 1539 

1548 IF rr=i THEN rr=ÿ:RETURN 

1545 CALL &BB#3:a$="Choisissez l'adresse de fin.":GOSUB 
25ÿ:adr2=adri:1i2=lif:co2=cot:GOSUB 1575 

1558 x$=INKEYS:IF x$="!"AND adr2-8+1i2x8+co2)=adritlilx 

8+coi THEN GOSUB 1584:1i2=1i2-1:GOSUB 1699:G0SUB 1575 E 
LSE IF x$="!"THEN GOSUB 158ÿ:1i2=1i2+1:G0SUB 1698 :GOSUB 
1575 

1555 IF x$="-"AND co2<7 THEN GOSUB 1588:co2=co2+1:G0SUB DCR 
1575 ELSE IF x$="-"AND adr2-1+1i2*x8+co2>=adritlit:8+co 

1 AND co2>8 THEN GOSUB 1589:co2=co2-1:G0SUB 1575 ELSE I 

F x$="W"THEN RETURN 


1569 GOTO 1558 )NA 
1565 LOCATE 7+co1x3, 1ii+{:PRINT"-"; :LOCATEH2,9,9:PRINTH >XL 
2,HEX$(adri+litx8+col, 4) :RETURN 

1578 LOCATE 7+cotx3,1i1+1:PRINT" "5 :RETURN )MD 
1575 LOCATE 19+co2x3,112+1:PRINT"-"; :LOCATE#2,9, 18:PRIN DXB 
T#2,HEX$(adr2+112x8+co2, 4) :LOCATE#2, 9, 11:PRINT#2,HEXS$ (a 
dr2+1i2x8+co2-adri-1i1#8-co1+1, 4) ; : RETURN 

1589 LOCATE 19+co2x3,1i2+1:PRINT" "; :RETURN )MZ 
1585 IF lii=-1 THEN lii=9:1F adr1)9 THEN adri=adri-8:P0 )GU 
KE &B285,49:CALL &EFA7,adri 

1598 IF 1i1=13 THEN li1=12:1F adri+194<1 THEN adri=adri )WQ 
+8:POKE &B285; 14:CALL &EFA7, adr1+96 

1595 RETURN )GD 
1699 IF 1i2=-1 THEN li2-ÿ:adr2=adr2-8:POKE &B285,9:CALL GE 
&EFA7,adr2:1F adr2=adri+1iix8 THEN LOCATE 7+coi*3,1:PR 
INT"-" 5 :RETURN 

1685 IF 1i2=13 THEN 1i2=12:1F adr2+194(1 THEN adr2=adr2 DMU 
+8:POKE &B285, 14:CALL &EFA7,adr2+96 

1619 RETURN )FB 
1615 GOSUB 1529 XD 
1629 n$="Octet de remplissage : &_":GOSUB 25g:a$="" )DQ 
1625 x$=UPPERSCINKEYS):1F x$=""THEN 1625 ELSE IF INSTR( WF 
*91234567989ABCDEF", x$) C9 AND LEN(a$)<2 THEN a$=a$+x$: 
LOCATE#1,26, 16:PRINT#1,a$:GOTO 1625 

1639 IF x$="M"THEN 1629 ELSE IF x$=CHR$(13)AND LEN(a$)= >VU 
2 THEN 1635 ELSE 1625 

1635 CALL &F5C1,3328#+adri+1i1#8+coi,adr2+1i2+8+co2-adr )HD 


1-1itx8-coi+1, VAL("&"+a$) 

1649 n$="":GOSUB 259:LOCATE#2, 1, S:PRINT#2, "O":PRINT#2," DJJ 
O":PRINT#2, "0"; :GOTO 1319 

1645 GOSUB 152#:POKE &F5B6,f:n$="Copie en menoire avec 
echange memoire/ecran ?":GO0SUB 254 

1659 x$=UPPERS(INKEYS):1F x$="O"THEN CALL &F58A,33288+ta >ND 
dritliix8+coi,adr2+1i2x8+co2-adri-1i1x8-co1+1:GO0TO 1648 
ELSE IF x$="N"THEN CALL &F5A7,33288+adri+li1x8+coi,adr 
2+1i2x8+co2-adri-1i1*8-co1+1:G0T0 1649 ELSE 1658 

1655 GOSUB 1529:POKE &F5B6, &EB:m$="Copie a l'ecran avec )EQ 
echange nemoire/ecran ?":G0SUB 259:G0T0 1659 

1669 n$-"Serie: “HS Hexa °AS ASCII":GOSUB 259:CALL &BB )FP 
93 

1665 x$=UPPERS(INKEYS):1F x$="H"THEN 1679 ELSE IF x$="A DUR 
"THEN 1699 ELSE 1665 

1678 n$="Sequence a rechercher :":GOSUB 259:d=#:c$="":C DTH 





ALL &BBS3 

1675 LOCATE#1,25,16:FO0R t=1 TO d STEP 2:PRINT#1,MID$(c$ DFY 
5t2)5" Ms iNEXT:PRINT#1," ":LOCATEH, 48, 16:PRINTH1, "." 

1688 x$=UPPERS$(INKEYS):1F x$=""THEN 1689 ELSE IF x$="M" OUT 

‘AND d>8 THEN d=d-1:c$=LEFT$(c$,d):GO0T0 1675 ELSE IF x$= 

CHR$(13)AND(d AND 1): THEN 1685 ELSE IF INSTR("#123456 
789ABCDEF", x$) (8 AND d<16 THEN d=d+i:c$=c$+x$:GOTO 167 

5 ELSE 1684 

1685 1F d=8 THEN RETURN ELSE d=d/2:POKE &FFBA,d:FOR t=1 
TO d:POKE &FFBA+t, VAL("&"+MIDS(c$, tx2-1,2)):NEXT:RETUR 
N 

1698 n$="Sequence a rechercher :":G0SUB 25#:d=f:c$="":C 
ALL &BB93 

1695 LOCATE#1,25,16:PRINT#1,c$;" "; :LOCATE#1, 33, 16:PRIN 
TH," 

1799 x$=INKEYS:IF x$=""THEN 1799 ELSE IF x$="M"AND dÿ 
THEN d=d-1:c$=LEFT$(c$,d):GOT0 1695 ELSE IF x$=CHR$(13) 
THEN 1785 ELSE IF x$>CHR$(31)AND x$<""AND d<B THEN d=d 
+1:c$=c$+x$ :POKE KFFBA+d, ASC(x$) :GOTO 1695 ELSE 1798 
1795 IF d=8 THEN RETURN ELSE POKE &FFBA, d:RETURN 

1719 GOSUB 1669:n$="":G0SUB 259:1F d=9 THEN 1285 ELSE r 
r=1:LOCATE#2, 1,9:PRINT#2, "Debut :";:GOSUB 1525:a$="":G0 
SUB 259:LOCATE#2, 1,9:PRINT#2, "0"; 

1745 CLS:PRINT"*15 - Recherche sur le bloc.":PRINT""28 
- Recherche sur tous les blocs." 

1728 1$=INKEYS:1F x$="{"THEN 1725 ELSE IF x$="2"THEN 17 
45 ELSE 1728 

1725 CALL &D798, 88298, &81FF+1,&8299,&k8298+adr1t1i1x8+co 
1:CALL &D72D 

1738 IF PEEK(&FFC6)=8 THEN a$="Sequence non trouvee !." 
:GOSUB 285:G0T0 1279 ELSE adr=PEEK(&FFB5) #256+PEEK(RFFB 
4)-33288 :n$="Adresse de la sequence : "+HEX$(adr, 4) :GDS 
UB 285 

1735 adr=INT(adr/8)*#8:1F adr+194>=1 THEN adr=1-194 

1749 GOTO 127$ 

1745 bl2=bl:z=41472:CALL &D798, 48298, &8298+1,&8299+adri 
+1i148+co1,kB288+adri+1iix8+co1:CALL &D72D:1F PEEK(RFFC 
628 THEN 1739 ELSE GOSUB 1495 


)TQ 
)XC 


1759 bl=bl+1:[F bl>blm THEN b1=ÿ >ZH 
1755 LOCATE#2, 11,2:PRINT#2, "&";HEXS$(PEEK(z+b1),2) >UG 
1769 POKE &FFCB,&82:POKE &FFCC,PEEK(z+bl):CALL &EFEB:IF >GL 
PEEK (&FFC7)>9 THEN POKE &FFC7,8:G0T0 1758 

1765 IF bl2=bl THEN CALL &D796,&8299,&8289+adr1+1i1xB8+c DUJ 

o1,48298,48280:CALL &D72D:G0T0 1739 

1779 CALL &D798,48299,48299+1,48298,48298:CALL &D72D:IF BW 
PEEK(&FFCG6)>8 THEN 1738 

1775 IF UPPERS(INKEY$)="A"THEN adr=ÿ:a$-"Recherche inte NF 
rronpue .":G0SUB 285:G0T0 1278 ELSE 1759 

1788 GOSUB 1669:n$="":GOSUB 259:1F d=8 THEN 1285 ELSE r >XK 
r=1:LOCATE#2, 1,9:PRINT#2, "Debut :";:GOSUB 1525:n$="":G0 

SUB 259:LOCATE#2, 1,9:PRINT#2, "0"; 

1785 CLS:PRINT"*18 - Recherche sur le secteur.":PRINT"*® >VK 


28 - Recherche sur la piste.":PRINT"°35 - Recherche sur 
tout le disc." 

1798 x$=INKEYS:IF x$="1"THEN 1795 ELSE IF x$="2"THEN 18 )QQ 
15 ELSE IF x$="3"THEN 1845 ELSE 1799 

1795 CALL &D798, 88298, &81FF+1,k8299, &8298tadrit1i1x8tco DMY 
1:CALL &D72D 

1899 IF PEEK(&FFC6)=8 THEN a$="Sequence non trouvee !." DAY 








:GOSUB 285:G0T0 1818 ELSE adr=PEEK(&FFB5)*x256+PEEK(RFFE 

4)-33288:n$="Adresse de la sequence : "+HEX$(adr, 4) :GDS 

UB 285 

1895 adr=INT(adr/8)+8:1F adr+194»=1 THEN adr=1-194 DUR 
1819 LOCATEE?, 18,3:PRINT#2,USING"##";sc:GOSUB 1239:GOT0 >GV 
1168 

1815 z-41472:sc2=sc:CALL &D798, 48268, &8290+1,&829B+adri DJ 
+1i1x6+co1,k8284+adri+lii*8+coi:CALL &D72D:1F PEEK(&FFC 

628 THEN 1889 ELSE LOCATE#2, 18,3:PRINT#2, "O0" :LOCATEN2, 

19, 4:PRINT#2, "0": LOCATE#2, 19, 5:PRINTH#2, "0" 

1828 sc=sct1:1F scPEEK(kA29S)THEN sc=1 )GL 
1825 LOCATE#2, 19,3:PRINT#2, US ING'"#t";sc:sct=PEEK(z+sc*4 AA 
-1):1g=PEEK(z+sc44):1=MIN(2"1gx128, 4996) :GOSUB 1425: IF 
r#=64 AND r2=8 AND ri=128)0R(r9-9 AND r2=64 AND r1=8)TH 

EN 1838 ELSE 1829 

1838 IF sc2=sc THEN CALL 4D796,48298, &8298+adri+1i1x8+tc DUR 

01,&8299,&8298:CALL &D72D:G0T0 1888 

1835 CALL &D798, &8209, &8299+1,&8299,&k8299:CALL &D72D:1F >BW 
PEEK(&FFC6)>9 THEN 1899 

1848 1F UPPERS$(INKEYS)="A"THEN adr=f:n$="Recherche inte DNW 
rronpue .":G0SUB 285:G0T0 1818 ELSE 1828 

1845 z=41472:sc2=sc:pst2=pst:CALL 4D798,48298,&8299+1,84 DRA 

8299+adr1+liix8+coi, k8298+adri+liix8+col:CALL &D72D:1F 

PEEK(&FFC6)>8 THEN 1899 ELSE GOSUB 1365:LOCATE#2, 19,2:P 

RINT#2,USING"##";pst:G0TO 1889 

1858 pst=pst+i:IF pst=42 THEN pst=ÿ 

1855 LOCATEH, 19,2:PRINT#2,USING"##";pst:POKE &FFC8, pst 
:CALL 4EE4B 

1868 IF PEEK(RFFC7)>9 THEN 1859 

1865 sct=PEEK(z+5c44-1): Ig=PEEK(z+scx4): I=MIN(2" 1g#128, 

4996) :GOSUB 1425:1F(r9=64 AND r2=9 AND r1=12B)0R(r9=9 À 

ND r2=64 AND ri=8)THEN 1878 ELSE 1888 

1878 IF sc2=sc AND pst=pst2 THEN CALL &D798, &8269,&8299 >QX 

tadri+liix6+coi,&8299,48299:CALL &D72D:G0T0 1899 

1875 CALL &D798,&8299,&8298+1,&B299,&8299:CALL &D72D:1F 
PEEK(&FFC6)>9 THEN 1889 


)D6 
)QJ 


)XJ 
UV 


1888 sc=sct1:1F scPEEK(KA29#)THEN sc=1 ELSE 1865 JR] 
1885 IF UPPERS(INKEY$)="A"THEN adr=B:sc=PEEK(kA289) :m$= AD 
“Recherche interronpue .":G0SUB 285:G0T0 1819 

1899 GOTO 1858 >NK 


1895 CLS:m$="Non du prog. :":GDSUB 25f:c$="":a=f:CALL & 

BB#3 

1999 d$=LEFT$(c$+SPACES (11), 11) :LOCATEH1, 17, 16:PRINTHI, 

LEFT$(d$,8);".":RIGHT$(d$,3):1F a(11 THEN LOCATEH1, 17+a 

-(a>71,16:PRINTHI,"_" 

1995 x$=UPPERS(INKEYS):1F x$="M"AND a>8 THEN a=a-1:c$=L 

EFT$(c$,a)ELSE IF x$=CHR$S(13)THEN 1915 ELSE IF x$="."TH 

EN a=8:c$=LEFT$(c$+SPACES(8),8)ELSE 1F x$>CHR$(31)AND x 

$<"a"AND ai THEN c$=c$+x$:a=ati ELSE 1995 

1919 GOTO 1989 

1915 IF c$=""THEN 455 ELSE c$=LEFT$(c$+SPACES(11),11):F 

OR t=1 TO 11:POKE &FFBA+t, ASC(MID$(c$,t,1)) :NEXT 

1929 n$="Introduire la disquette progranae .":GOSUB 285 

:CALL &DD54:1F PEEK(&FFC7)99 THEN GOSUB 275:GO0TD 455 

1925 CALL &D7C1:FOR t=# TO 63:POKE 89298+tx16,D:NEXT:CA 

LL &F558:IF PEEK(&FFC6)=8 THEN n$="Progranme non trouve 
1H":GOSUB 285:GO0T0 455 

1938 POKE &FFCB,&82:POKE &FFCC, PEEK(&9299) :CALL B&EFEB:! >BG 


:F PEEK(&FFC7)9 THEN GOSUB 275:G0T0 455 
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1935 IF PEEK(k8212)>1 OR(PEEK(&8211)+PEEK(&8218))9 THE 
N n$="Programse non basic. Operation impossible .":GOSU 
B 285:G0T0 455 ELSE POKE &8212,PEEK(&B212)X0R 1:CALL &F 
5D8,48284:1F PEEK(&8212)-ÿ THEN POKE &8243, PEEK(&8243) - 
1 ELSE POKE 48243, PEEK (48243) +1 

1949 POKE &DE33,4685:POKE &FFCB, &82:CALL REFEB:1F PEEK(& 
FFC7)38 THEN GOSUB 275:G0T0 455 

1945 z=37376 

1958 2=2+1:1F PEEK(z)=9 THEN 455 

1955 POKE &DE33,484:POKE &FFCB,&82:POKE &FFCC, PEEK(z):C 
ALL BEFEB:1F PEEK(&FFC7)29 THEN GOSUB 275:GO0T0 455 

1969 CALL &F5D8,48298:POKE &DE33,485:POKE &FFCB, &82:CAL 
L &EFEB:IF PEEK(&FFC7)28 THEN GOSUB 275:G0T0 455 

1965 GOTO 1954 


>GD 


NF 


)BB 
)1J 


)PL 


>PD 


DISCRACKE . PR2z 


5 MEMORY &24FF 

18 n$="":GOSUB 185:CLEAR:DEFINT A-Y:DIN z(5):CLS:PRINT" 

MENU DESASSEMBLEUR :":PRINT:PRINT"*18 - Programme sur d 
isquette.":PRINT""28 - Systeme d’Exploitation.":PRINT"* 

38 - ROM BASIC. ":PRINT"*°48 - ROM disc." 

15 x$=INKEYS:IF x$="{"THEN 39 ELSE IF x$="2"THEN 2(1)=ÿ 
:POKE &D65A,254:a=8:c$="Sys. d'exploitation"ELSE IF x$= 

"3"THEN z(1)=49152:POKE &D65A,253:a=&Cf:c$="ROH BASIC"E 

LSE IF x$="4"THEN z(1)=49152:POKE &D65A, 7:a=&C8:c$="ROM 
disc'ELSE 15 

28 z(2)=z(1):z(3)=k4999:z(4)=z(1)+z(3)-1:RESTORE 29:FOR 
t=9 TO 23:READ a$:POKE &A9BG+t, VAL ("&"+a$) :NEXT:DATA 2 
1,9c,af, cd,51, d6,3e, ff, 32, 5a, dB, c9, 21,99, 99, 11,09,25,91 
» 89,48, ed, bf, c9 

25 POKE &A9SE,a:CALL RABBD:GOTO 89 

39 n$="Non du prog. :":GOSUB 185:c$="":a=g:CALL LBB93 

35 d$=LEFT$(c$+SPACES(11),11) :LOCATE#1, 17, 16:PRINT#1, LE 

FT$(d$,8);",.";RIGHT$(d$,3):1F a<ii THEN LOCATE#1, 17+a-( 

a)7),16:PRINT#1,"_" 

49 x$=UPPERS(INKEYS):IF x$="M"AND 229 THEN a=a-1:c$=LEF 
T$(c$,a):G0TO 35 ELSE IF x$=CHR$(13)THEN 45 ELSE IF x$= 
"THEN a=8:c$=LEFT$(c$+SPACES(8),8):G0T0 35 ELSE IF x$ 
DCHR$ (31) AND x$<"a"AND a<1i THEN c$=c$+x$:a=ati:GOTO 35 
ELSE 49 

&5 IF c$=""THEN 19 ELSE c$=LEFT£(c$+SPACES(11),11):FOR 
t=1 TO 11:POKE &FFBA+t, ASC(MIDS(c$, t, 1)) :NEXT 

58 n$="Introduire la disquette programme .":GOSUB 185:C >VU 
ALL &BB93:CALL &BB18:CALL &DD59:1F PEEK(&FFC7)>9 THEN 1 
98 

55 IF PEEK(&FFC6)=8 THEN m$="Prograsme non trouve !H":G 
OTO 195 ELSE IF PEEK(&FFE4)=RES THEN n$="Probleme de ca 
talogue .Utilisez la restructuration de catalogue .":G0 
TO 195 

68 IF PEEK(&9A19)=8 AND PEEK(&9A11)=9 AND(PEEK(&9A12)=2 )GH 
OR PEEK(&9A12)=3)THEN 65 ELSE n$="Programme non binair 
e !. Impossible a desassembler .H":GOT0 195 

65 c$=LEFTS(c$,8)+","4#RIGHT$(c$,3) :z(1)=PEEK(LK9A16) #256 
+PEEK(49A15) :z(3)=PEEK(&9A19) k256+PEEK(&9A18) : z(2)=PEEK 
(R9ALB)#256+PEEK(ROA1A) :z(4)=z(1)+z(3)-1 

79 IF 2(3)333924 THEN na$="Inpossible a charger. Program DWU 
ae trop long !":GO0TO 195 

75 POKE &A791,PEEK(RFFE4) :LOAD c$,8&2589:IF 2(2)>z(4)0R )CP 


YA 
)LN 


DH 








z(2)Cz(1)THEN 2(2)=z(1) 

88 LOCATEH1,59,6:PRINT#1,c$;"0":FOR d=1 T0 4:LOCATE#1,5 DBZ 
9,7+d:PRINT#1, "&";HEX$(z(d),4);" (";z(d);")O":NEXT:z(5) 
=2(1)-42598:1F 2(5))9 THEN POKE &FFCD,k4A ELSE POKE &FF 

CD, &42 

85 CALL &D798, ABS(z(5)),&k24FF+z(3), 42589, z(2)-z(5) )RX 
98 a$="":GOSUB 185:CALL &BB93:POKE &D654,255:CALL &D646 )YV 


95 CLS:PRINT SPACE$(18);"Menu / Options":PRINT:PRINT"°J DNF 
5 - Sauter a une adresse.";"°R& - Rechercher une sequen 
ce d’octets.";"°D$ - Retour au desassenblage.";"°A8 - D 
esassemblage autoaatique.";"°M5 - Menu desasseableur.": 
CALL &BB93 
198 x$=UPPERS(INKEYS):1F x$="M"THEN 19 ELSE IF x$="J"TH DYN 
EN 195 ELSE IF x$="R"THEN 139 ELSE IF x$="D"'THEN 99 ELS 
E IF x$="A"THEN CALL 8D78F:GO0T0 95 ELSE 199 
195 CLS:m$="Saut a l'adresse : &":GOSUB 185 >RC 
119 d=D:c$="":CALL &BBÿ3 )RB 
115 LOCATE#1,22,16:PRINT#1,c$; "0"; :x$=UPPERS(INKEYS): IF DYY 
X$="®THEN 115 ELSE IF x$="N"THEN 119 ELSE IF x$=CHR$(1 
S)AND d=4 THEN 129 ELSE IF INSTR("9123456789ABCDEF", x$) 
O8 AND dt4 THEN d=d+i:c$=c$+x$:GOTO 115 ELSE 115 
128 z(2)=VAL("&"+c$):1F z(2)C8 THEN z(2)=z(2)+65536 )RV 
125 IF z(2)>z(4)0R z(2)Cz(1)THEN PRINT'H":GOTO 118 ELSE DBX 
85 
139 CLS:m$="Serie: °HS Hexa 
&BB93 
135 x$=UPPERS(INKEYS): IF x$="H"THEN 148 ELSE IF x$="A"T )QR 
HEN 165 ELSE 135 
149 a$="Sequence a rechercher :":GOSUB 185:d=9:c$="":CA DRA 
LL &BB#3 
145 LOCATE#1,25,16:FOR t=1 TO d STEP 2:PRINT#1,MID$(c$, DDR 
t,2)5" 3 :NEXT:PRINT#1," ":LOCATE#, 48, 16:PRINT#H1,"." 
159 x$=UPPERS(INKEYS):1F x$=""THEN 159 ELSE IF x$="M"AN DBG 
D d>9 THEN d=d-1:c$=LEFT$(c$,d):G0T0 145 ELSE IF x$=CHR 
$(13)AND(d AND 1)=8 THEN 155 ELSE IF INSTR("9123456789A 
BCDEF", x$)©8 AND d<16 THEN d=dti:c$=c$+x$:G0TO 145 ELS 
E 158 
155 1F d=f THEN 99 ELSE d-d/2:POKE &FFBA, d:FOR t=1 TO d >KN 
:POKE &FFBA+t, VAL("&"4+MIDS (c$, tx2-1,2)):NEXT 
168 CALL &D72D:1F PEEK(&FFC6)=9 THEN n$="Sequence non t >PP 
rouvee !H":GOSUB 185:CALL &BB93:CALL &BB18:GO0T0 98 ELSE 
9 
165 a$="Sequence à rechercher :":GO0SUB 185:d=9:c$="":CA DRH 
LL &BBÿ3 
179 LOCATE#1,25, 16:PRINTH#1,c$;" ";:LOCATEH1, 33, 16:PRINT DHL 
#1, n," 
175 x$=INKEYS:IF x$=""THEN 175 ELSE IF x$="M"AND d)8 TH DRU 
EN d=d-1:c$=LEFT$(c$,d):GOTO 179 ELSE IF x$=CHR$(13)THE 
N 189 ELSE IF x$)CHRS(31L)AND x$<"P"AND d€B THEN d=dt{:c 
$=c$+x$:POKE &FFBA+d, ASC(x$) :GOTO 179 ELSE 175 
189 IF d=f THEN 99 ELSE POKE &FFBA,d:GO0TO 168 >LH 
185 LOCATE#1,2,16:PRINT#1, n$;"0":RETURN NT 
198 e=PEEK(&FFC7):1F e=k48 THEN n$="Pas de disc dans le )GE 
lecteur !H":GOSUB 185:CALL &KBB93:CALL &BB18:GOT0 58 EL 
SE IF e=&41 THEN n$="Disquette non foraatee ‘H'"ELSE IF 
e=&44 THEN n$="Format non standard !H'"ELSE n$-"Erreur d 
e disquette !H" 
195 GOSUB 185:CALL &BB93:CALL &BB18:G0T0 19 


°AS ASCII":GOSUB 185:CALL KW 


XXT 
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Dérr4 4. BAS 
5 MODE 2 


14 LÔÜCATE 1,L:PRINT CHRSCI5SD)STRINGS (48, 154)CHR$(156)" "CHR$(15 
D)STRINGS (27, 154)CHR$ (156) ; 

15 PRINT CHR$(149)SPACES(48)CHR$(149)" "CHR$(149)" 
HON 1991 "CHR$(149); 

28 PRINT CHR$(149)SPACES(48)CHR$(149)" "CHR$(149) SPACES(27)CHR$ 
(149); 

25 PRINT CHR$(149)SPACES(48)CHR$(149)" "CHR$(147)STRINGS (27,154 
)CHR$ (153); 

38 FOR t=1 TO 18:PRINT CHR$(149)SPACES(48)CHR$(149) :NEXT 

35 PRINT CHR$(147)STRING$(48, 154) CHR$(153) 

48 PRINT'>":PRINT STRING#(67,95)"Codes Machine" 

45 adr=59512:1=199:n=1 

59 FOR t=1 TO 16:READ a$:k=VAL(*&"+a$):POKE adr,k:adr=adr+1:5=s 
+k+65536%(s5+k)32767) :NEXT:READ a$:k=VAL("&"+a$):IF k<>s THEN PR 
INT CHR$(7); "Erreur ligne"; 1:END 

55 1=1+5:n=nt1:1F n=44 THEN n:{:adr=adr+1369 

68 IF 1<1445 THEN 59 

65 SAVE"discpack.scr",b,8C099,44909 

199 DATA 3E, 82, 32,86, B2, DD, ES,E1,CD, C9, C7,8E, 1C, 32,86, B2, DBGE 
195 DATA DD,7E, 99,EE, CB, 28, 4D,EE, 26,CA,0B, CG, EE, 39,28, 97,0FF3 
119 DATA FE, 29,28,1B,C3,D8, CD, DD, 7E,91,FE,CB,28,28,5F,CD,1845 
115 DATA 61,C7,CB,6F, CA, 7B, CD, DD, 23, FD, 34,81,C3, DB, CD, DD, 2238 
128 DATA 7E,81,FE,CB, 28,85, FD, 34,91,18,E3,FD, 34,91, FD, 34,2935 
125 DATA 91,DD,5E,93,CD,61,C7,E6,19,CA, 7B,CD, FD, 36, 49, 82, 39A6 
138 DATA DD,23,18,9F,DD,5E, 91,CD,61,C7,E6,88,CA, 7B, CD, FD, 3973 
135 DATA 36,99, 92,3E,C8,A3,28,1A,CD,F9,C7,21,D9,EF,C4,69,4128 
149 DATA C7,CD, 73,C7,3E, 21, 32,86, B2,8E, 97, A3,CD,35,C7,C3,492B 
145 DATA 8E,CD,21,BA,EF,1F,1F,1F,1F,1F,1F,3D,C4,69,C7,CD,5498 
158 DATA 73,07,3E, 21,32, 86, B2,CD,F#,C7, CD, DC, C7,8E, 2C, CD, 5936 
155 DATA 5A,BB, 3E,97, A3,CD,35,C7,C3,8E,CD,DD,5E,81,CD,61,6184 
169 DATA C7,E6,48,CA, 7B,CD, FD, 36, 99,92, E6,98,2B,1F,3E,CF,68FA 
165 DATA A3,FE, 4B,28, 2D, FE, 43,28,69,FE, 4A, CA, D2,C6,FE, 42, 71F7 
179 DATA CA,E7,CG6,E6,C7,FE,41,CA,EC,C6,C3,92,C7,21, 78, ED, 7CEB 
175 DATA 7E, AB, 28,97,3E,FF,47,ED,B1,18,F5,23,CD,73,C7,C3,855C 
188 DATA BE, CD, FD, 36, 89, 94, 3E, 4C, CD, SA, BB, SE, 44, CD, SA, BB, 8CBE 
185 DATA SE, 21,32,86,B2,21,6C,ED,CD,E8,C7,C4,69,C7,7E, CD, 95BC 
199 DATA 54,BB,23,7E, CD, SA, BB, 8E, 2C, CD, 5A, BB,3E,28,CD,5A,9D2D 
195 DATA BB,DD, 66,93, DD,6E,92,CD,A3,C7,3E, 29, CD, 5A, BB, C3, A5SBE 
289 DATA 8E,CD, FD, 36,99, 94,3, 4C, CD, SA, BB, 8E, 44, CD, 5A, BB, AD28 
295 DATA 8E, 21, 32,86, B2,8E, 28, CD, 5A, BB, DD, 66,43, DD, 6E, 92,B3C4 
219 DATA CD, A3,C7,3E, 29, CD, 5A, BB, 8E, 2C, CD, 5A,BB,21,6C,ED, BCYA 
215 DATA CD,E8,C7,C4,69,C7,7E, CD, 5A,BB, 23, 7E, CD, SA, BB, C3,C628 
229 DATA 8E,CD, 21,54, ED, CD, 73,C7,21,6C, ED, CD,E8,C7,C4,69,D89D 
225 DATA C7,CD, 73,C7,C3,8E, CD, 21,63, ED, 18,E9, 21, 59, ED, CD, D996 
239 DATA 73,C7,CD,F8,07,21,C6,EF,C4,69,C7,7E,CD,5A,BB,C3,E441 
235 DATA 8E,CD, SE, 49, CD, SA, BB, 8E, 4E, CD, SA, BB, 8€, 21, 32, 86, EBBA 
249 DATA B2,21,C6,EF,CD,F9,C7,C4,69,C7,7E, CD, 5A,BB,3E,2C,F554 
245 DATA CD, 54, BB,3E, 28, CD, 5A, BB, SE, 43, CD, 5A, BB, 3E, 29, CD, FDI5 
259 DATA 5A,BB,C3,8E, CD, 4F, AF,FD, B6,91,29,9C, 79,A7,21,C6,952D 
255 DATA EF,C4,69,C7,CD,73,C7,C9,SE, 28, CD, SA, BB, 8E, 49, CD, SE7C 
269 DATA 5A,BB,3E,57, FD, 86,91, CD, 5A,BB, CD, 7D,C7,FD, 34,98, 16CE 
265 DATA C9,16,99,21,59,F5,19,7E,C9,57,3E,FF,47,ED,B1,15, 1E81 
274 DATA 29,FB,C9,7E,FE,FF, C8, CD, 5A, BB, 23, 18,F6,DD, 7E,91,2797 
275 DATA FE, 89,38,9B,EE,FF, 3C,6F,SE, 2D, CD, 5A, BB, 18,96,6F,2ECA 
289 DATA 3E,28,CD, 54, BB, 8E, 26, CD, SA, BB, CD, B8, C7, SE, 29, CD, 36DB 
285 DATA 5A,BB, C9,8E, 26, CD, 5A, BB, 7C,8F,8F,8F,0F,E6,9F,CD, 3D79 


par P. POC 





299 DATA DC,C7,7C,E6,8F,CD, DC, C7, 7D,9F,9F,0F,0F,E6,9F,CD, 4578 
295 DATA DC, C7, 7D,E6,8F,CD, DC, C7, C9, FD, 7E, 1D, A7, 28, D4, C5, 4FC6 
399 DATA ED, 4B,CE,FF, 32, D8, C7, ED, 4A, C1, 18,C7,FE, SA, 38, 92, 58B5 
395 DATA C6,97,C6,39,CD,SA,BB,C9,3E, 38, A3,1F,1F,1F,1F,C9,5F79 
319 DATA 3E,38,A3,1F,1F,1F, C9, 09, 09,09, 00,00 ,00,99,08,09,61B8 
315 DATA 4F,AF,FD,B6,91,29,11,B1,21,6C,ED,C4,69,C7, 7E, CD, 6AS5 
329 DATA 5A,BB,23,7E, CD, 5A, BB, C9, 79,FE, 92, 29, EA, SE, 49, CD, 723D 
325 DATA 5A,BB,3E,57,FD,86,91,CD, 5A,BB, C9, 8E, 3F, CD, 54, BB, 7A75 
339 DATA CD, 5A,BB, CD, 54, BB, FD, 36, 91,99, FD, 36,99,91, AF,FD,824D 
335 DATA B6,91,28,95,FD, 34,99, DD, 2B, 3E, A, 32, 86, B2, FD, 4E, 8867 
349 DATA 89, DD,E5, DD, 6E, 99, CD, B8, C7, DD, 23,9D,29,F5,DD,E1, 9149 
345 DATA DD,ES,8E, 15, 32,86, B2, FD, 4E, 99, DD, 7E, 89,FE, 29, 36,991B 
359 DATA 13,FE,7E,39,8F, CD, 5A, BB, DD, 23, D, 29, ED, DD, Et, FD, A1A8 
355 DATA 36,91,99,C9,8E,2E, 18, ED, DD, SE, 99, FD, 36, 89,91, CD, A74D 
369 DATA 61,C7,E6,97,CA,2A,CE,EE, 81, CA, C6,D5,EE, 93, CA,F6,B129 
365 DATA DS,EE,91,CA,7F,CE,EE,87,CA,94,CF,EE, 91, CA, 28, CF,BA4G 
379 DATA EE,83,CA,63,D5,3E, 41, CD, 5A,BB, 8E, 44,CD,5A, BB,CD, C2CB 
375 DATA 5A,BB, %E,21, 32,86, B2,3E, 92, CD, 59, CD, 8E, 2C, CD, 5A, C964 
389 DATA BB,CD,E8,C7,CD, 59, CD, C3, 8E, CD, 21, A2, EE, 7E, AB, 28, D3A5 
385 DATA 97,3E,FF,47,ED,B1,18,F5,23,7E,FE,FF, CA, 8E, CD, FE, DD9C 
399 DATA 79,28,33,FE, 61,28, 0D,FE, 6€, 28, 11,FE, 66,28, 1F,CD,E418 
395 DATA 5A,BB, 18,E4,3E, 21, 32,86, B2,C3, 7D, CF, FD, 34,99, 3E, EB79 
498 DATA 26,CD,5A,BB,E5,DD,6E,91,CD,B8,C7,E1,18,CA,3E,21,F417 
495 DATA 32,86, B2,C3,E4,CE,ES,3E, 92, CD, 59,CD, E1, 18, B9, 21, FCDB 
419 DATA CG6,EF,3E, 4C, CD, 54, BB, SE, 44,CD, 5A, BB, 8E, 21, 32,86,8474 
415 DATA B2,AF,FD,B6,91,29, 1D,CD,F4,C7,C4,69,C7, CD, 73,C7,8E45 
429 DATA 3E,2C,CD, 54, BB, 21,C6,EF, 3E,97, A3,C4,69,C7, CD, 73, 1683 
425 DATA C7,C3,8E,CD,CD,F9,C7,FE, 96,28, 12, A7, C4, 69, C7, CD, 2492 
#39 DATA 73,07,3E, 20, CD, 54, BB, CD, 48,C7,C3,8E, CD, CD, 48,C7, 29EE 
435 DATA SE,2C,CD,5A, BB, 21,C6,EF,3E,97,A3,C4,69, C7, CD, 73, 322C 
449 DATA C7,C3,8E,CD, FD, 34, 09, DD, E5,E1, DD, 7E,91,FE, 69, 36, 3BF7 
445 DATA 9D,91,FE,99,ED, 42,4F,89,CD,C9,C7,C3, 8E, CD, 23, 23, 434B 
459 DATA 96,89, 18,F2,3E, 4A, CD, SA, BB, 3E, 52, CD, 5A, BB, CB, AB, 4AAD 
455 DATA 5E,21,32,86,B2,21,7C,EF,CD,F9,C7,C4,69, C7, CD, 73, 53BA 
469 DATA C7,3E,2C,CD, 5A, BB, 18, BC, 21,99,EF, 3E,97, A3,C4,69,5B56 
465 DATA C7,7E,FE,FF, CA,8E,CD,FE, 63, 28, 1C,FE, 79, 28,2E,FE, 6524 
479 DATA 6E,28,4C,FE, 73,CA,B3,CF,FE, 61, 28,31,FE,66,CA,C4, GE6D 
475 DATA CF, CD, 5A,BB, 23,18, DA,E5,3E, 21, 32, 86, B2, 21, 7C,EF, 766D 
489 DATA CD,F4,07,C4,69,C7,CD, 73,C7,E1, 23, 18,C4,E5,8E, 21, 8/18 
485 DATA 32,86, B2,CD,E8,C7,CD,58,CD,E1, 23, 18, B4, FD, 34, 09, 88E1 
499 DATA FD, 34,89, DD,66, 92, DD, 6E, #1, CD, A3,C7,C3,8E,CD,E5,91DD 
495 DATA FD, 34, 99,3E, 26,CD, 5A,BB, AF, FD, B6,91, 29, 9A, DD, GE, 992C 
599 DATA 91,CD,B8,C7,E1,23, 18,89, DD, 6E, 92,CD,B8,C7,E1,23, A1BB 
595 DATA C3,31,CF,ES, SE, 21,32, 86, B2,CD,F4,C7,CD, 35,C7,E1, AB5A 
519 DATA 23,03, 31,CF,3E, 21, 32, 66, B2, 8E, 26, CD, 5A, BB, CD, F8, B34C 
515 DATA C7,21,48,EF,C4,69,C7,7E, CD, 54, BB, 23, 7E, CD, 54, BB, BCA2 
528 DATA 23,7E,EE,FF, CA, 8E, CD, 3E, 29, CD, SA, BB, 8E, 2F, CD, 5A,C489 
525 DATA BB,3E, 44, CD, 5A,BB,3E, 57,CD, 5A, BB, 8, 34, C3,59,D5,CC7F 
539 DATA CD, 54, BB, DD, 66,42, DD, 6E, 91, CD, A3, C7, FD, 36, 98,93, D45F 
535 DATA C3,8E, CD, 8€, 97,A3,21,64,EF,3D,C4,69,C7, 7E,FE, 79, DCF6 
549 DATA 28,2D,FE,63,28,37,FE, 71, 28,96, CD, 5A, BB, 23, 18, ED, E3B2 
545 DATA SE,21,32,86,B2, CD,EB,C7,FE, #3, 28,86, CD, 59, CD, C3, EBD3 
559 DATA 8E,CD,3E, 41, CD, 54, BB, 8E, 46, CD, 5A, BB, C3, 8E, CD, 3E, F451 
555 DATA 21,32, 86,B2,CD,E8,C7,CD, 58, CD, C3, 8E, CD, E, 21,32, FCFI 
569 DATA 86,B2,21,7C,EF,CD,F9,C7,C4,69, C7, CD, 73,C7,3E, 20, SB9E 
565 DATA CD,5A, BB,C3, 7D,CF,CB, 73, 29,8F,CD,F8,C7,21,2D, EE, GFBC 
579 DATA C4,69,C7,CD,73,C7,C3,D9,C5,CD,F9,C7,21,2D,EE, C4, LA9C 
575 DATA 69,07, CD,73,C7,FD, 34,99, DD, 6E, 91, 8E, 26, CD, 54, BB, 2296 
589 DATA CD,B8,C7,C3,8E, CD, 8E, 4C, CD, 54, BB, 3E, 44, CD, 5A, BB, 2BD8 
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585 DATA SE, 21, 32,86, B2,21,63,EE, 91,97, 99, 7E, AB, 28, 93, 89, 3978 
598 DATA 18,F9,23,96,96,7E,FE,61,28,9E,FE, 79,28, 1D, CD, 5A, 3690 
595 DATA BB,23,95,CA,8E, CD, 18,ED,E5, FD, 34, 9, FD, 34, 99, DD, 3ECE 
699 DATA 66,92, DD,6E, 81, CD, A3,C7,E1,18,E6,E5,C5,3E, 92,CD,474F 
695 DATA 59,CD,C1,E1,18,DB,DD,2A,B4,FF,FD,21,B9,FF,21,5B,5184 
619 DATA D6,22,56,D6, DF,56, D6, C9, 99,99, FF, CD, CD, D6,C3, ED, 5B1F 
615 DATA D6,CD, 1B,BB,39,FB,FE, F0,26,27,FE,F1,28,97,FE,E9,64FC 
628 DATA 28,64, 18,ED, 99, CD, 74,D7,3E,9E, 32,85, B2, CD, 85, D6, 6C88 
625 DATA CD,59,C5,18,DC,11,51,FD,21,52,FD,91,5F, 92, ED, Bÿ, 742C 
639 DATA C9,FD,7E,F3, A7, 26, CA, 21, AF,FF,CD,C4,D6,2B,DD,ES, 7F1F 
635 DATA 96,9C,CD,C4,D6, 28,45, 24, F0, 3E, 99, 32,85, B2, CD, 59, GSAS 
649 DATA C5,CD,BB,D6,DD,E1,18,A9,21,AF,FF,11,B9,FF,91,61,8F35 
645 DATA 92,ED,B6,C9, 7E, A7, C8, DD, 2B, 3D, C8, 18, FA, 21,58, FD, 981F 
659 DATA 91,61,92, 36,99, 23,9B, 78,B1,C8, 18,F7,21,AF,FF,96,9DBC 
655 DATA OC, CD, C4,D6,2B,95,29,F9,DD, 22, B4,FF,C9, CD, 6C, BB, AGE? 
669 DATA BE, 8D, C5, 3E, BE, 32, 85, B2, CD, 85, D6,CD,58,C5,C1, SD, AES4 
665 DATA CA,61,D6,CD, 74,D7,18,EA, DD, 66,91, DD, 6E, 89, 22, B4, B6D4 
679 DATA FF,DD,66,43, DD, 6E, 92, 22, B6,FF, DD, 66,95, DD, 6E, 94, BED4 
675 DATA 22,B8,FF,DD,66,97,DD,6E,96,22,CE,FF,C9, ED, 5B,B4,C7FC 
689 DATA FF,FD,21,B9,FF,FD, 36, 16, 99, 13, 2A,B8,FF,ED, 52,38, D87C 
685 DATA 1F,2A,B4,FF,ED,52,C8, LA, FD, BE, 9B, 26, EC, FD, 46, SA, D8BB 
698 DATA 21,BC,FF,D5,13,95,28,9F, 1A,BE, 29, 15,23, 13, 18,F5,DE98 
695 DATA ED,5B,B6,FF,A7,18,DA,FD,36,16,91,D1,ED,53,B4,FF,E7AC 
749 DATA C9,D1,18,C5,DD,ES5, 16,99, FD,5E, 99, DD, 19, DD, E5,D1,FADF 
795 DATA 2A,B8,FF,ED, 52,38, 92,D1,C9,DD,E1,D1,C3,61,D6, CD, FB29 
719 DATA 6C,BB,FD,21,B9,FF, DD, 2A,B4,FF, 3E,9E, 32,85, B2,CD, 459 
715 DATA 85,D6,CD,58,C5, CD, 1B,BB, 38,95, CD, 74,D7, 18,EB, CD, 9D5E 
729 DATA #3,BB,CD, 1B,BB, 39, FB,FE, ED, CA, 61,D6,CD, 74,D7,18,16F9 
725 DATA D9,21,99,9A, FD, 21,B9,FF, FD, 36,29, 99, 81, 69, 98, 36, 1CEC 
739 DATA E5,23,8B, 78,81, 29, F6, DD, 21,99, 92,96, 49,C5, DD, 7E, 2436 
735 DATA 99,FE,ES,CA,96,DF, AF, DD, B6, 8D, C2,96, DF, DD, B6, SE, 2E7F 
749 DATA C2,96,DF, DD, B6,9F, CA, 96, DF, AF, C3, 3A,DF, 98,98, 90, 3722 
745 DATA CD, DD, DD,D9, FD, 36, 18,92, FD, 7E,23, FD, 77,19, FD, 7E, 49FF 
759 DATA 22,FD, 77,18, CD, 39, DE, D9, CD, C2, DD, CD, 39, DE, DB, CD, 4B3C 
755 DATA C2,DD, CD, 39, DE, D9, CD, C2, DD, CD, 39, DE, DS, FD, 36, 16,55E6 
769 DATA 98,21,99,92,E5, 7E,32,E4,FF,23, 11,BB,FF,9E, 9B, 7E, 5C96 
765 DATA FE,69,938,92,D6, 89,47, 1A, AB, 29,97,23,13, 8D, 29,EF,6226 
779 DATA 18,8B,E1,91,29, 99,99, 7C,FE, 9A, 29,D8,C9,FD, 36, 16,6872 
775 DATA 91,E1,91,19,99,99, 7E, CD, 98, DF, FD, 36, 1B, 9A, CD, 39, 6E85 
789 DATA DE, C9, FD, 34, 1B, FD, 34, 1B, FD, 34, 19,3E, 9F, FD, A6, 19, 7617 
785 DATA EE, YA, CA, FD, 7E,23,FD, 77,19, FD, 34, 18,C9, FD, 21,B9, 7EDA 
199 DATA FF, FD, 36,17, 99, FD, 36,24,87,21,D4,FF,CD,D4, BC, 39, 8782 
795 DATA 3B,22,D5,FF,FD, 71,27, 1E,99,53,0E, 91,21, 99,92, DF, 8D5A 
899 DATA D5,FF,39,26,DF, 28, DE, 39, 23, 3A, 0F, A8, FD, 77,23,FE,95D4 
895 DATA C1,28,99,FE, 41,28, 9B,FD, 36, 22,81,C9, FD, 36, 22, #9, JBAC 
819 DATA 37,C9,FD, 36,22, 92,37,C9,6C,C5,97,67,FD, 77,17,C9, A2F6 
815 DATA FD,36,24,64,21,D4,FF,CD,D4,BC, 39, F9,22,D5,FF, FD, AD35 
829 DATA 71,27,1E,99,FD, 56, 18, FD, 4E, 19, 2A,CA,FF,DF,D5,FF,B569 
825 DATA 39,DA,C9,FD,21,B8,FF,11,09,92, 21, 99,94, 91, 99,08,BB67 
839 DATA ED, B9, FD, 36, 21,99, FD, 36, 29,99, FD, 36, 2A, 99, FD, 36, C23B 
835 DATA 2D,99,8E, 49, DD,21,98,9A,C5,DD, 7E, 69, EE, E5, 28, 2C, C895 
848 DATA DD, 7E, 8C, A7,29,6D,11,19,99,4F,DD,ES,E1, 19, FD, 34, CFD 
845 DATA 2A,96,19,7E, A7,28,29,23,9C, 19,F8, 11,9C, 99, 19, 7E,D32E 
859 DATA A7,28,1D,FE,E5, 28, 19, 11,94,99, 18,E1,DD, 7E,91,FE, D996 
855 DATA E5,28,49,18,CB,DD, 71,11,FD, 34,29, FD, 34, 2D, 18, 14,E 999 
869 DATA DD, 7E,89,EE,E5,28,EE, DD, 71,11,FD, 7E,21,81,FD,77,E934 
865 DATA 21,FD, 34,29, DD, 7E, 19, CD, 98, DF, FD, 36, 1B, 8A, CD, 39, FA9A 
879 DATA DE, 39,1F,DD,E5,E1,11, 12,99, 19, EB, 21, 19,8A,91,9C,F659 
875 DATA 99,ED, B9,91,29,99,DD,49,C1,8D, C2, 78, DE, FD, 36, 17, FD2D 
889 DATA 69,C9,DD,36,1F,FF,18,EB, FD, 36, 93, 99,FE, 5A, 38, 06,03F6 
885 DATA FD,36,93, 14,D6,5A,97, 47, 3A, AG, AB, 4F, 78,86, 99, B9, 99C6 
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899 DATA 38,84,84,91,18, F9, FD, 86, 23,FD, 77, 19, 78, FD, 86,93, 19D9 
895 DATA FD, 86, 22,FE, 28, D9,FD, 77,16,C9,DD,B6, 19, 28,57, 96, 18F1 
998 DATA 8B,DD,E5,E1,23,7E,E6, 7F,FE, 25, DA,96,DF, 77,23,18,21BC 
945 DATA F4,FD, 34,29, DD,ES5,E1, 11,99, 9A,D5,7E,E6, 7F,4F, 1A, 2A78 
919 DATA EG, 7F,B9,26, 94, 38,96, 18, 19,23, 13, 18,EE, 91,29, 98, 2E7D 
915 DATA E1,99,EB,DD,E5,E1,D5, 18,E2,D1,D5,21,E9, A1, ED, 52, 394B 
929 DATA 28,8B,E5,C1,93, 11,99, A2, 21,E9, A1, ED,B6,91, 25,99, 3F42 
925 DATA Di,DD,E5,E1,ED,B9, 11,29,99,DD,19,C1,95,C8,C3, DD, 48A8 
939 DATA D7,FD,21,B9,FF,FD, ZE, 1C, CD, 98, DF, CD, 38, DE, C9, FD, 5338 
935 DATA 21,B9,FF,AF, FD, 77,29,CD,CF,E6, SE, 84, 32, 33, DE, FD, 5CD8 
949 DATA 36, 1B,92,CD, 39, DE, 38,97, FD, 7E, 17,FE, 41,28, 14,FD,63DF 
945 DATA 34,18, FD,36, 17,98, FD, 7E, 18,FE, 2A, 29, D7,3E, 84,32,6A1B 
959 DATA 33,DE,C9,3E, 86, 32, 33, DE, 96,99, 21,99, A3, FD, 74, 1B, 705B 
955 DATA 3A,C8,FF,77,23,23, 23,23, 19,F9,CD, 39,DE, DS, 18,CF, 77FA 
969 DATA CD, DD, DD, D9, FD, 7E, 22,FE, 91,28, 26,57,DF,D5,FF,D2,8217 
965 DATA 2C,DE,DF,28,DE,D2, 2C, DE, 3A,51,BE, E6, F4, 3C, FD, BE, 8BFB 
979 DATA 23,28,8E, 34, 52,BE, EE, 92, 29,97, 14, 7A,FE,28,28,DC,915A 
975 DATA C9,FD,36,29,FF,C9,FD,21,B4,FF,21, 19, 9A, 3E,FF, 32, 9A45 
989 DATA 19, A2, FD, 36,29, 92, FD, A6, 22,28, 96, FD, 36, 28, AB, 18, AY66 
985 DATA 94, FD, 36,28, B4,E5, 7E, FD, BE, 29,CA,57,E6,E5, D1, 13, A999 
999 DATA CB,63,CC,21,E6,1A,FE,FF, 26, 79, FD, BE, 29,29,F9,7E, B2B2 
995 DATA 12,E5,CD,88,DF, FD, 7E,19,FD, 77,28, FD, 7E, 18,FD, 77, BB97 
1999 DATA 2C,FD, 36, 1B, 82,3E, 84, 32, 33, DE, CD, C4, E6, D2, C1, E6,C488 
1995 DATA FD,36, 1B,8A,FD, 7E,29,E1,E5, 77, CD, 98,DF, CD, C4,E6,CEGC 
1919 DATA D2,C1,E6,SE, 85,32, 33, DE, FD, 36, 1B, 82, FD, 7E, 29, CD, D72C 
1915 DATA 96,DF,CD, C4,E6,D2,C1,E6, FD, 36, 1B, 8A, FD, 7E, 2B,FD,E17E 
1929 DATA 77,19,FD, 7E, 2C, FD, 77,18,CD,C4,E6,D2,C1,E6,E1,18,EB2A 
1925 DATA 36,E5,EB, 91,19, 99,99, EB,E1,C9,E5, 7E, CD, 98, DF,3E,F334 
1939 DATA 84,32, 33,DE, FD, 36, 1B,82,CD,C4,E6,D2,C1,E6,3E, 85,FC7E 
1935 DATA 32,33,DE,E1,E5, FD, 7E, 29, 77,CD, 98, DF, FD, 36, 1B, 82,9526 
1849 DATA CD,C4,E6,D2,C1,E6,E1,FD, 34,29, FD, 7E, 29, FD, BE, 28, 9FDB 
1945 DATA 28,4A,CD,CF,E6, 23,CB, 65, 28,95, 7E, A7, C2, A7,E5,E1, 18Aÿ 
1959 DATA 91,29,99,99,7E,FE,FF,28,934,FE,ES,C2, A5,E5, 21,09, 1FF1 
1955 DATA 82,91,09,98,36,E5,23, 8B, 78,B1,29,F8, SE, 85, 32,33, 252E 
1969 DATA DE, FD, 7E, 29, FD, BE, 28,28, 14, CD,CF,E6, FD, 36, 1B, 82,2E21 
1965 DATA CD,98,DF,CD,C4,E6,D9, FD, 34,29, 18, E5,E1, FD, 36, 1B,37A2 
1474 DATA 9A,FD, 7E,23,FD, 77,19,FD, 7E,22,FD, 77,18, CD, 64, DD, 499E 
1975 DATA C9,E1,E1,C9,CD, 39, DE, DS, CD, C2, DD, CD, 39, DE, C9, F5, 4CA2 
1989 DATA ES,3E, 14, 32, 86, B2, 3E, 26, CD, SA, BB, FD, GE, 29, CD, BB, 54A2 
1985 DATA C7,E1,F1,C9,21,99,9A, FD,21,B9,FF, SA, C8,FF, FD, 46, 5EDÿ 
1999 DATA 2C, 77,23,23,23,23,19,F9,CD,38,DE,D9, FD, 34,18, FD, 65F9 
1995 DATA 7E,18,FE,2A,C8,6F,3E, 14, 32, 86, B2, 8E, 26, CD, 5A, BB, 6CFÉ 
1199 DATA CD,B8,C7,18,CF,CD,DD, DD, DB, FD, 7E,23,FE, 41,26, 95, 7684 
1195 DATA FD,36,17,FF,C9, FD, 36, 19,41, FD, 36, 18,99, FD, 36, 1B, 7DBC 
1119 DATA 5A,3E, 85, 32, 33, DE, 96, 12,C5,CD,38,DE, D2, C2, E6, CD, B61B 
1115 DATA C2,DD,C1, 19,F3,C9,FD,21,B9,FF, FD, 36,21,99,21, 19,8E09 
1129 DATA 94, 16, A2, 96, 19,E5, 7E,FD,BE, 28,38, 9B,FE, 99,26, 94, 94A9 
1125 DATA 5F,3E,92, 12,23, 19,EF, E1,91, 29,99, 99, 7C,FE, A2, 29, 99C3 
1139 DATA E2,21,92, A2, FD, 75,29,CD,CF,E6, 7E,FE, 98, 29,96, 32, A18B 
1135 DATA 99,92, 7D,E5,CD, 98, DF, FD, 36, 1B, 92, CD, 39, DE, 39, 22, A94ÿ 
1149 DATA CD, C2, DD, CD, 39, DE, 38, 14,21, 99,92,91,88,91, 11,94, AE9B 
1145 DATA 98,7E,EE,ES5,28, 80,19, 8B, 78,B1,29,F5,E1,FD, 34,21, BSAD 
1159 DATA 18,93,E1,36, 91,23, 7D,FD,BE, 28,C8,18,B7,3E, 19,32, BB7A 
1155 DATA 66,BE, 11,99, 8A, CD, 9B, BC, SE, #1, 32,66, BE, C9, 21,99, C1DC 
1169 DATA 7E,11,59,ED, 91, A6,92,ED,B8,21,A5,88,11,59,F5,91,C88B 
1165 DATA 98,91,ED, B9,C9, 99,09, 90,09, 00,09,00,09,09,90,00,CAF2 
1174 DATA 09,00,09,09,00,08, 00,90, 00,09,090,99,80, 90,89, 9, CAF2 
1175 DATA FD,21,B9,FF,21, 99,92, 96, B4, 36, 9, 23, 19,FB, DD, 21,D18E 
1189 DATA SE, 94, 96, 49, FD, 36, 29,98, DD, 7E,98,FE,ES5, 28, 16, DD, D828 
1185 DATA 7E,FE,A7, 29,83, FD, 34,29, FD, 7E,28, DD, 77,99, 11,29, DEDF 
1199 DATA 99, DD, 19, 19,E3, DD, 21, 19,98, 96,48,9E, 19, DD, 7E,FE, E52D 





1195 DATA 32,E8,FF,DD, 7E,49,FE, ES, CB, A7, C4, AA, ED, DD, 23, 6D,EF53 
1299 DATA 29,F1,11,19,99,DD, 19, 18,E2, C9,5F, 16,92, 34,E8,FF, F656 
1285 DATA 12,FD,34, 21,C9, FD, 21,89, FF, FD, 36, 32, 99, 21,98, 92, FDG8 
1218 DATA FD, 7E,18,C6,94,57,1E, 99,96, B4, 7E, FD, BE, 39, CC, E1, 9513 
1215 DATA ED,23,1D, CC, DD, ED, 1D, CC, DD, ED, 14, EE, CO, 1E, 99, 14, 4D6B 
1229 DATA C9,D5, 1, 1, ED,53,85,B2,3A,E1,FF, CD, 54, BB, 1D, 7B, 1660 
1225 DATA FE, 92, 28,8F, ED, 53,85, 82, 34, E1,FF, CD, 5A, BB, D, FD, 1FE4 
1239 DATA 34,32,C9, 1E, 0B, 14, 18,EC, 3E, 91,CD,B4, BB, FD, 21, BY, 269D 
1235 DATA FF, DD, 21, 81,94, 11,00, 3E, ED, 53,85, B2, DD, 7E, D, FD, 2E6D 
1249 DATA BE, 39, 28,07,91,29,6B,DD,09,18,F1,06,88, CD, 49, EE, 3343 
1245 DATA 3E,2E,CD, 5A,BB, 86,93, CD, 49, EE, 3E, 09, CD, B4, BB, C9, 3838 
1258 DATA DD, 7E, 96, CD, 5A,BB, DD, 23, 18,F6,C9, FD, 21, B9,FF, FD, 458 
1255 DATA 36,17,88,FD,36, 24,87, 21,D4,FF, CD, D4, BC, DP, 22, DS, 451 
1268 DATA FF,FD, 71,27,21,C3,EE, 16,98, FD,5E, 18, 19, 7E, 47, 2A, 5448 
1265 DATA CA,FF,23, DD, 24, CA, FF, DD, 36, 99, 99, DD, 36,93,FF, E, SC4A 
1278 DATA 99,DF,D5,FF, D2, 2, DE, DF, 28, DE, D2, 20, DE, 34, 51, BE, 65E3 
1275 DATA E6,9F,FE,91,29,F1,0E, 09, 9B, 78, Bt, 29,FB, FD, 56, 18, 6CB# 
1289 DATA DF,DS,FF, D2, 20, DE, DF, 26, DE, D2, 20, DE, 34, 51, BE, DD, 7726 
1285 DATA BE,93,C8, DD, 34,99, 0E, 04,05, 11, 4F, BE, EB, ED, B8, EB, 7F38 
1299 DATA D1,18,E3, 5A, 44, 44,3E, 37, 38, 2A, 23, 1C,15,8F, 89, 95, 8320 
1295 DATA 02,5A,54, C, 46, 49,38, 33, 20, 25, 1E, 18, 14, DA, 06, 03, 86C3 
1399 DATA 5C,55, 4€, 48, 42, 3A, 34, 2D, 26, 28, LA, 12, 8C, FD, 21, B9, BA33 
1385 DATA FF,21,09,82, 22, CA,FF, 16,99, FD, 72, 18, FD, 72, 29, CD, 91C2 
1319 DATA CF,E6, CD, 4B,EE, 29, 0D, 22, CA,FF, 14, 7A,FE, 2A, CB, FD, 9B14 
1315 DATA 72,18,18,E8,FE, 41, C9, FD, 36, 17, 49, DD, 2A, CA, FF, DD, A398 
1329 DATA 36,09,FF, DD, 23, DD, 22,CA,FF,18,DF, DD, dE, 89, 21, 09, AADO 
1325 DATA 82, 79, A7, 28, 19, 7E,23,FE,FF, 28,07, 11,94,09, 19, 3D, AFE2 
1339 DATA 29,FC, 9D, 29,FD,22,CA,FF, C9, FD, 21,B9,FF, FD, 36, 17, B8E6 
1335 DATA 99,FD,36, 24,87, 21,D4,FF, CD, DA, BC, DS, 22,5, FF, FD, C2D8 
1349 DATA 71,27,21,00, 82, 1E,08,FD,56,18,DF,D5,FF, D2, 20, DE, CA2B 
1345 DATA C9,F3,21,FF,81,91,7F,FB, CD, 7D, EF, FB, CO, UD, ED, 78, D472 
1354 DATA F2, 7E,EF,E6, 20, C8, 0C, ED, 78, 18, F2,F3, 21, 99, 82, 81, DCB1 
1355 DATA 7F,FB,CD,97,EF,FB,C9, 8D, ED, 78, F2, 96, EF, EG, 2, CB, E7FB 
1369 DATA 0C,ED, 78, 77,23,18,F8,DD,66,91,DD,6E, 89, 3E, 91, 32, EEBE 
1365 DATA 86,B2, CD, A8,C7, 11,9, 82, 19, EB, DS, 3€, 08, 32, 86, B2, F50E 
1374 DATA 96,98, 1A,6F,CD,B8,C7, 13, 3E, 29, CD, 5A, BB, 19,F3,D1,FCAB 
1375 DATA 3E, 22,32, 86,82, 96,98, 1A,FE, 29, 38,6, FE, 89, 39,02, 916 
1389 DATA 18,92, SE, 2E, CD, 5A,BB, 13, 18, ED, C9, FD, 21,B9, FF, FD, 29B1 
1385 DATA 7E,1C,CD,98,DF, CD,CA, EG, C9, 99, 09, 09, 09, 09,99, 09,0F3F 
1399 DATA FD,21,B9,FF,FD,36,16,99, 21,09, 9A, 11, 80, 92, 6, 49, 14F9 
1395 DATA C5,D5,E5,23,11,BB,FF, 86,08, 14, BE, 29, 13, 23, 13,18, 1ACB 
1499 DATA F8,FD,34,16,E1,91, 19,98, 09,D1, ED, B9, C1, 19, E1, CO, 22EB 
1495 DATA E1,91,29,60, 09, D1,C1, 19,D7,C9, DD, 66,93, DD, 6E, #2, 29CB 
1418 DATA DD,46,91,DD,46,08,11,49,92,7E,F5, LA, 77,F1, 12, 23, 2FE7 
1415 DATA 13,98, 78,81, 29, F3, C9, DD, 66, 93, DD, 6E, 92, DD, 46,91, 36C1 
1429 DATA DD, 4E, 96, 11,09,92,EB, 7E, 12,23, 13,88, 78, B1, 29, FT, 3C8B 
1425 DATA C9,DD,66,95,DD, 6E, 94, DD, 46, 43, DD, 4E, 92, DD, 56, 99, 4371 
1439 DATA 72,23, 08, 78,B1,29,F9,C9,DD, 66,91, DD, 6E, 99, 11, 89, 4A3C 
1435 DATA 7D,06,89, 1A, AE, 77,23, 13,19, F9, 7C, FE, 86, CB, 11,88,5116 
1449 DATA 7D,06,88,18,EE,08,00,08,08, 06,00, 80,00, 09, 80,09, 531F 
DOTE Z , BAS 
19 MEMORY 32127:1=18fradr:32128 








15 FOR t=1 TO 16:READ a$:k=VAL("&"+a$):POKE adr,k:adr=adrti:s=s 
+k+65536*(s5+k)32767) :NEXT:READ a$:k=VAL("&"+a$):IF sk THEN PR 


INT CHR$(7); "Erreur ligne"; l:END 

28 1=1+5:1F 1445 THEN 15 

25 SAVE"discpack.cod",b,32128, 1182 

198 DATA AB,2C,ED,EA,6C,37,3F,EC,9B,DF, 7A,9C,3B,D4,6D, F5, ÿ8ED 
195 DATA 84,44,93,11,DF,59,8F, 21,73, 7A, CC, 83, DD, 38, 6A, 39, BF 14 
119 DATA D3,6F,92,F0,69,6B,94,E4,B7,F3,93, AB,69,88,F9, 43, 181B 
115 DATA EB, 8E, 43, A, CA, 84,31,53,F3,1F,C9,E8, AD, C8, BA, 6D, 219D 
128 DATA 93,98,D4,6A, 2C,B2,87,27,C8,99,EE, 89, AF,C3, 53, AB, 29C2 
125 DATA 2B,34,5C,2F,13,EE, AA, 2C, D9, F4, BC, 12,B3,C5, 1C,68,311A 


138 DATA 81,28, 2C,FA, 77, 46,85, A4, FC,9B, F1, 32,5B, C3, 79, 77, 3996 
135 DATA 65,36, BE, 5B, 8C, C8, B5, C2, F9,9B, 98, 9F, 36, 9D, D8,96, 4218 

148 DATA 4F,55,54,28, 29,28, 43, 29,2C,FF, 41, 44, 43, 29, 29,48, 465F 
145 DATA 4C,2C,FF,53, 42, 43, 29, 29, 48, 4C, 20, FF, 42,43, FF, 44, 4C75 
158 DATA 45,FF, 48,4C,FF,53,58,FF, 44, 4E, 45, 47,FF, 45,52, 45,53E7 
155 DATA 54,4E,FF, 46, 49, 4D, 29, 29, 29,38, FF,47,4C, 44, 28,29, 590A 
168 DATA 29,49, 2C,41,FF, 4D,52,45,54,49,FF,4F, 4C, 44, 29, 29, 5E7E 
165 DATA 29,52, 20,41,FF,56, 49, 4D, 29,29, 20,31,FF,57,4C,44,63BF 
178 DATA 29,28, 20,41, 2C,49,FF,5E, 49, 4D, 29, 26, 29, 32, FF, 5F,68B8 
175 DATA 4C, 44, 29,29, 29, 41,20, 52,FF,67, 52,52, 44,FF,6F,52,6E75 
188 DATA 4C,44,FF,AB, 4C, 44,49,FF,A1,43,58, 49, FF, A2, 49, 4E, 7631 
185 DATA 49,FF,A3,4F,55,54,40,FF, AB, 4C, 44, 44,FF, A9, 43,58, 7E13 
198 DATA 44,FF, AA, 49, 4E, 44,FF,AB,4F,55,54, 44,FF, BD, 4C, 44, B609 
195 DATA 49,52, FF,B1, 43,59, 49,52, FF, B2, 49, 4E, 49,52, FF, B3, GEGE 
288 DATA 4F,54,49,52,FF,BB, 4C, 44, 44,52,FF, BO, 43, 59, 44,52, OSŸA 
285 DATA FF, BA, 49, 4E, 44,52, FF, BB, 4F,54,44,52,FF,41,44,44, CAB 
219 DATA 29,29,41,20,FF,41,44,43, 29,28, 41,2C,FF, 53,55, 42, A1B5 
215 DATA 28, 29,FF,53, 42, 43, 29,29, 41,2C,FF,41,4E, 44, 29,29, AGBB 
229 DATA FF,58,4F,52, 29,28, FF,4F,52, 28, 29, 20,FF, 43,59, 29, ACTS 
225 DATA 29, 28,FF, 34,41, 20, 28,61, 29,29, 32, 28,61, 29, 20,41, BATE 
239 DATA 29, 9A, 41,20, 28, 42,43, 29, LA, 41,20, 28, 44, 45,29, 92, B34E 
235 DATA 28, 42,43, 29, 20, 41, 12,28, 44,45, 29, 2C, 41,F9,53,59,B786 
249 DATA 2C, 79, 28, 29, 2A, 79, 2C, 28,61, 29, 29, 22, 28,61, 29, 2C, BAFA 
245 DATA 79,20,EB, 45,56, 29, 29, 29, 44,45, 20, 78,FF,E3,45,58,C116 
259 DATA 29, 29, 29,28, 53,58, 29,20, 70,FF,08, 45,56, 29, 29, 29, C5fA 
255 DATA 41,46,2C, 41,46, 27,FF,D9, 45,58,58,FF,27,44,41,41,CB24 
269 DATA FF,2F,43,58, 4C,FF,07,52,43,4C,41,FF, 17,52, 4C,41,D14E 
265 DATA FF,8F,52,52,43,41,FF,1F,52,52,41,FF,3F,43,43,46,D791 
278 DATA FF,37,53,43,46,FF,E9, 44,59, 28, 29, 20,28, 79, 29, FF, DEAS 
275 DATA C9,52,45,54,FF,90,4E,4F,59,FF, 76,48, 41,4C,54,FF, E582 
289 DATA F3,44,49,FF,FB,45,49,FF,C3,4A,59,61,FF, 18, 44,52, EDFA 
285 DATA 66,FF,19, 44, 4A,4E, 5A,66,FF,CD, 43,41, 4C,4C,61,FF,F553 
299 DATA DB, 49, 4E, 28, 28,29, 41,20, 28,6E, 29,FF,D3, 4F,55,54,FB1B 
295 DATA 29, 20,28,6E, 29, 20, 41,FF, 30,38, FF, 30, 38,46,FF, 31, PAC3 
369 DATA 36,46,FF,31,38,46,FF,32,39,FF, 92,38, 46, FF, 33, 39, 9759 
385 DATA FF,33,38,FF,59, 4F,59,71,FF,29,FF, 44, 45,43, 79, FF, BF7E 
319 DATA 43,41,4C,4C,63,FF,58,55,53,46,71,FF,4E, 54, FF, 5A, 16AA 
315 DATA FF,4E,43,FF,43,FF,59,4F,FF,59,45,FF,58,FF, 4D,FF, 2848 
329 DATA 52,45,54,63,FF, 4C, 44, 79,20,61,FF, 44,58, 63, 2C,61, 26AB 
395 DATA FF,49,4E,43,79,FF, 40, 4E, 43,73, FF, 44,45, 43, 73,FF, 2E7D 
338 DATA 4C, 44, 73,20,6E,FF, 52,53, 54,66, 42, 49,54,FF, 52,45, 34ED 
335 DATA 53,FF,53,45,54,FF,42,FF,43,FF,44,FF,45,FF, 48,FF, SE7B 
349 DATA 4C,FF, 28,48, 4C, 29,FF,41,FF,52,4C,43,FF,52,52,43, 45B1 
345 DATA FF,52, 4C,FF,52,52,FF,53,4C,41,FF,53,52,41,FF, 28, 4DD4 
359 DATA FF,53,52,4C,FF, 89,85, 82,85,85,85,95, 89, 89, A7, 82, 5697 
355 DATA 86,85,85,95, 89, 89,85, 82,85,85, 85,95, 88,88, A7,82,5F1P 
369 DATA 86,85,85,95, 89,84, A5, A2, A5,85,85,95, 89, B4, A7, A2, 6811 
365 DATA A6,85,85,95, 89, 94, 95, 92,05, 25, 25, 25, 00,84, A7, 82, 6D92 
379 DATA 66,85,85,95,84,C3,C3,C3,C3, CB, CB,FB, CB, C3, C3, C3, 7858 
375 DATA C3,83,CB,B3, CB, C3, C3, C3, C3, 83, 83,FB,CB,C3, C3,C3, 8498 
389 DATA C3,83,83,FB,CB, C3,C3, C3,C3, 83,83, B3, CB, C3, C3, C3, 8F79 
385 DATA C3,83,83,B3, CB, A3, A3,E3,E3, 43, A3, 99, A3,C3, C3,C3, 9485 
399 DATA C3,83,83,B3,83,81,81,81,81,81,81,B1,81,81,81,81,A33F 
395 DATA 81,81,81,B1,81,81,81,81,81,81,81,B1,81,81,81,81, ABAF 
499 DATA 81,81,81,B1,81,C9,C9, C9, C9,81,81,B1,81,C9, C9, C9, B617 
485 DATA C9,81,81,B1,81, C9, CO, C9, CO, 81, 81,B1,81,C9,C9, C9, CAC? 
419 DATA C9,81,81,B1,81,85,86,85, 89, 86, 86, 91,85, 85, 89,85, C98ÿ 
415 DATA 85,66, 80,91,85,85, 86,85, 89, 86, 86,91,85,85, 89,85, DIDD 
429 DATA 80,86, 85,91,85,85,A6,85, A8, 86, A6, 91,85, 85, A9, 85, DABA 
425 DATA A8,66,85,91,85,85, 86,85, 89,86, 86, 91,85,85, A2,85, E359 
439 DATA 89,86, 85,91, 85,99, 8, 21,98, 7E, 11,59, ED, 81, A5, 92, EB8F 
435 DATA CD,C8,81,21,45,89,11,59,F5,91,90,01,CD,C8,81,C9,F812 
449 DATA 1A,F5,7E,12,F1,77,23,13,08, 78,81, 29, F3, CO, 99, 89, FG5F 


36 


DESTINATION MATHS 


— L'essentiel des connaissances en Mathématiques en 3 logiciels (pour CE.CM 6/5). 


— Une démarche pédagogique et un contenu originaux : Le joueur manipule, trace, pèse, évalue 


avance des 
— Une très grande facilité d'emploi avec de nombreuses aides intégrées. 
— Une rédlisation générale exceptionnelle : scénario et décors futuristes, animations, musiques. 


— Un outl unique de complément et de soutien d'une très grande diversité, aux questions toujours 


nouvelles, qui accompagner a l'élève pendant toute l'année scolaire. 


«1/a2 REF : GEN50O1CPC PRIX PUBLIC: 1397 180 F 
C1 /CM2 REF : GENSO02CPC PRIX PUBLIC: 197 180F 


6/5 REF : GEN5003CPC PRIX PUBLIC : 199-F7 180F 


4 SAISONS DE L'ECRIT 


Donnez à vos enfants les moyens et l'envie d'écrire avec : 


— Un traitement de texte simplifié qui permet de rédiger, d'imprimer, de sauvegarder les textes de 


son choix. 


— Des modules de perfectionnement pour écrire sans fautes de ponctuation, enrichir son vocabulaire. 
Œ/CM7èllons REF: GEN5005CPC PRIX PUBLIC : 225 200 F 


6/311àlSans REF: GEN5O06CPC PRIX PUBLIC : 225-F 200 F 


ATTENTION STOCK LIMITE !!! 





HAMSTER EN FOLIE 


Devenez le Rockfeller du Hamster ! 
Saurez-vous faire fructifier le petit élevage, vendre et acheter au bon moment ? 
Un passionnant jeu de réflexion et de stimulation économique, folement amusant. 


10 à 15 ns REF : GEN5007CPC PRIX PUBLIC : 225-F 200 F 


Amstrad CPC 


TROUBADOURS 

L'éducatif et l'aventure enfin réunis ! 

Une mission délicate va vous être confiée. Votre connaissance du francais, votre sens poétique seront 
des atouts dans cette aventure. 

Une façon tout à fait originale et plaisante d'aborder l'expression écrite, la lecture et le vocabulaire. 


Qàl4 ons REF : GEN5004CPC PRIX PUBLKC : 199-F 180F 


UTILISEZ LE BON DE COMMANDE SORACOM 


GESTION BANCAIRE 6128 


LA GESTION DE COMPTE BANCAIRE INDISPENSABLE POUR VOTRE CPC 


Quelques caractéristiques _: 


- Gère jusqu'à 10 comptes (banque, épargne, caisse...). 
- Codes secrets possibles pour chacun des comptes. 
- Saisie des opérations très simple, avec aide en ligne. 


- Fonction archivage, vous permettant de stocker année par année 


vos opérations, 


- Fonction TRIER, pour obtenir des listes d'opérations par dates 


croissantes. 


- À l'aide de POINTER, vous pouvez effectuer la liaison avec votre 


relevé de banque ‘officiel’. 


- NOMBREUSES POSSIBILITES DE SORTIES : 


RELEVES 


CRITERE 


No ORDRE/OBJET DEBIT CREDIT SOLDE 


CPC 6188 
:1 si MÉDECIN 


EVEX. 
ut 
Fr 


15 Le fe ire qu 000 





BON DE COMMANDE à retourner à 


- Recherche particulière répondant à 1 ou plusieurs critères ! MICROLOGIC - B.P. 18 - 91211 DRAVEIL CEDEX 


parmi les suivants : -DATES DE DEBUT ET DE FIN 


-MONTANTS MINIMUM ET MAXIMUM | 


-UN LIBELLE PARTICULIER 


- Liste de chèques pouvant répondre aux critères suivants: 


-DATES DE DEBUT ET DE FIN 


-NUMEROS DE DEBUT ET DE FIN. 


- Relevé complet -ENTRE DATES 


par téléphone:(1) 69.21.61.65 / par minitel (1) 69.24,49.08 


| Code ser Mines L'AT RR R E REE 


De commande GESTION BANCAIRE 6128 , au prix 
de 265 ,00 Frs. (port compris) 


AFFICHAGE SOLDE RÉEL OÙ SOLDE :[je désire recevoir votre CATALOGUE GRATUIT 


OPERATIONS POINTEES. 
- Sorties sur ECRAN , IMPRIMANTE ou DISQUETIE. 


- UTILITAIRES IMPRIMANTE, ECRAN, COPIE D'ECRAN... 


:- UTILISE LES 128 Ko DE VOTRE CPC 6128. 


‘ présentant votre autres produits pour CPC. 
i Je choisis de Fe par : 


Expire 
0 CHEQUE CB. ET No ea ne FIN 


Signature 
[ MANDAT |] CONTRERBT (+35 Frs) 









L 


on, Vous ne rêvez pos : grû- 
N ce à Sllmarils, CPC Infos vous 

offre le 2ème niveau complet 
du jeu Xyphoes Fantasy. 





Blen sûr, les personnes allergiques 
aux datas pourront passer leur che- 
min car une fois de plus, les pages 
de CPC Infos vont être emplies de 
nombres mystérieux et plus ou moins 
hexadécimaux. 


Ceux qui auront le courage de ta- 
per ce listing (qui s'étend sur deux 
numéros) auront la joie de pouvoir 
apprécier la programmation et les 
graphismes de ce jeu exceptionnel. 


D'ailleurs pour vous faciliter la tà- 
che, les différents listings utilisent une 
somme de contrôle différente. Elle 
permet d'éviter le problème de l'in- 





2ème niveau 


Stéphane SAINT-MARTIN 


Valable pour CPC (464 - 664 + ext. mémoire 64 ko) 
- 6128 


pourrez entrer cette masse de chif- 
fres en étant sûr à 99 % du bon ré- 
sultat final. 


Pour vous aider, d'uüutillsez le pro- 
gramme Dataload présenté (à 
nouveau) dans nos pages. 


Voici les différents programmes qui 
composent Xyphoss : 
DATI.BAS 

DAT2A.BAS 
DAT2B.BAS 

DATS3.BAS 

DATA4A.BAS 
DAT4B.BAS 

DATS.BAS 

DAT6.BAS 

DAT7.BAS 
ARRANGE.BAS 
LOADER.BAS 












les données du Jeu. Le programme 
ARRANGE va réorganiser les fichiers 
1.BIN à 7.BIN (vous trouverez ce pro- 
gramme dans le numéro sulvant). 
Enfin, LOADER permettra de lancer 
le Jeu. 


Ce mois-ci, vous ne trouverez que 
les programmes DATI, DAT2A, 
DAT2B et le début de DAT. 


Paramètres à fournir à Dataload 
pour entrer correctement les datas 
de Xyphoess : 


Numéro de ligne de départ  :110 


Incrément : 10 
Nombre de datas par ligne  : 15 
Utilisation de «&» Non 
Longueur de la somme :4 


Formule de calcul  : som=som+a") 


version des données. Ainsi, vous Les programmes DATI à DAT7 sont Remise à zéro de la somme  : Oui 


LILI tt [TT] RASE DUUTTE Hi 


j} hs. 1 Luis R 


DLLLE TT OT 


| | ‘gl "" « M | om) nl 1 DR il M 
ue” À | I D " ÿ 


oi pe il de, + pr ‘5 
WU y! 1 ' mr 


wi ere certe QT =. 











[=] 


DATI 


18 ' DATAS du PROG Î 

28 ‘ Xyphoes Fantasy 

38 ' (c) SILHARILS 1991 

48 ON ERROR GOTO 198 

58 HODE 2:AD=&CB98:NL=119 

69 FOR A=1 TO 516:B-9:FO0R C=1 TO 15:READ A$ 

78 POKE AD, VAL("&"+A$) :B=B+(PEEK(AD)*c) : AD=AD+1 

89 NEXT:READ E$:IF VAL("&"+E$) CB THEN 199 

99 NL=NL+LS:NEXT:SAVE"1",B, &C899, &LE37: CLS : END 

188 CLS:PRINT"DATA"C;"LIGNE"NL;" INCORRECT'" :END 

119 DATA 21,23,69, 46, 48,E5, CD, 38, BC, EL, 23, 7E, E5, CD, SE, 3F38 
124 DATA BC,E1, AF,23, 46, 48,E5,F5,CD, 32,BC,F1,E1,3C, FE, 5934 
139 DATA 19,29,F1,16,12, 99, 00,09, 00,09, 06,08, 08,08, 99, 93DD 
149 DATA 09,98, 00,00, 00,09,08,90,21,53,64,11,09,C9, 7E,1B35 
159 DATA FE, AE, 28, 88, 12,13, 23, 74, B3,28,F4,C9, 23, 7E, 23, 2EAE 
168 DATA 4E,12, 13,9D,29,FB, 18,EF,D1,D1,D1, AE, F3, 84, AE, 46E8 
179 DATA D1,11,AE,F3,86, AE, D1,1B, AE, F3, 09, AE, D1,95, AE, 3EC6 
188 DATA C9,99, E2, AE, F3,94, AE, E2, 14,F3,F3, F3, AE, E2, 15, 4D4D 
199 DATA C8,C9,AE,E2, 89, AE, F3, 98, AE, E2, 94, AE, CB, 96, AE, 3EAŸ 
288 DATA F3,95,AE,D1,9C,C9,C8,CB, AE, Di, 1B, AE, CS, 86, AE, 4226 
219 DATA D1,97,AE,F3, 89, AE, D1,94, AE, C8, 97,F3,F3,F3,E2,59FB 
228 DATA E2, AE, C9, 85,E2,E2,E2, AE, C8, SA, AE, E2, BA, CO, AE, 4858 
239 DATA E2, 8C, AE, CS, 99, AE, E2, 94, AE, F3, 8C, AE, E2,97,C8,3FF7 
249 DATA CD,AE,F3,84,AE,C6, 14, AE, D1, 86, AE, C9, 88, D1,D1, 439B 
259 DATA D1,AE,CS,BE,D1,D1,D1, AE, F3, 11, AE, D1, 4,C8,F3, 4033 
268 DATA F3,AE,E2,94, AE, CD, 14,E2,E2, AE, C9, 1B, E2, E2, E2,51DD 
279 DATA AË,F3,11,AE,E2, 95, AE, F3, 04, AE, D1,95, AE, C8, 2C, 3072 
289 DATA AE,D1,97,AE,F3,11,D1,D1,D1, AE, F3, 95, AE, E2, 87, 44FE 
299 DATA AE, C9, 28, AE, E2, 8B, AE, F3, 0E, E2, E2,F3,F3,D1,D1,58D4 
388 DATA F3,F3,AE,D1,87,AE,C8,27, AE, D1, 11, AE, F3, SA, Di, 4323 
319 DATA F3,AE,E2, BB, AE, C9, 29, AE, E2, 12, AE,F3, DA, AE, D1,455F 
328 DATA 87,AE,C9,2E, AE, Di, 11,AE,F3, SA, AE, E2, 86, AE, CG, 42A1 
339 DATA 32, AE, E2, 12, AE, F3, 86, D1,D1, AE, C8, 3C, AE, Di, 8E, 4291 
348 DATA AE, F3, 94,E2, AE, C9, 41, AE, E2, 8B,F3,F3,F3, AE, CS, 5495 
358 DATA 42, AE, D1,8B,F3,F3, F3, AE, CO, 23, 48, 48, 48, AE, CB, 4105 
369 DATA 21,AE,E2,96,F3,F3,F3, AE, C8, 1F, AE, 84, 88, AE, CS, 458D 
378 DATA 21,AE,D1,98, AE, C9, 1B, AE, 48, 11, AE, CB, 1F, AE, E2, 3E24 
388 DATA 65,4E, CB, LA, AE,684,9B,8C,9C, SC, AE, 84, 84, AE, CS, 2EBA 
399 DATA 22,D4,D1,AE,C9, 11,48, 48, AE, C8, 98, AE, 48, 96, AE, 3399 
498 DATA #C,97, AE, 48,99, AE, CB, 1F,84, 84, AE, CO, BD, AE, 84, 39EC 


BAS 





419 DATA 86, AE, CO, 88, AE, 84, 94, AE, 0C, 08, AE, 84,97, AE, CB, 3351 
428 DATA 29,4E, 48,97, AE,CP, 06, AE, 48,08, AE, CB, 97, AE, 48, 3177 
439 DATA B4, AE, BC, A7, AE, 48, BA, AE, CB, 1C, AE, 84, 1B, AE, CB, 3811 
448 DATA 86,84, 84,84, AE, 0, OA, AE, 84,95, AE, CO, 1D, AE, 48, 3293 
458 DATA LE, AE,C9,84,48, 48, AE, 0C, BA, AE, 48,04, AE, CB, 89, 2A4F 
468 DATA 48,4E, CB, 14, E,84, 13, 8C, AE, 64, 08, CB, CA, CB, 84, 3C52 
478 DATA 84, AE, BC, 8C, AE, 84, 84, AE, CO, 04, 84, 84,84, AE, CB, 3C7A 
488 DATA 95,84, 84, AE, CA,8E, AE, 48,04, AE, 8C, 85, AE, 48, 87, 2546 
498 DATA AE, 8C, 86, AE, 48, AD, AE, C, BC, AE, 48, 18, AE, CA, 99, 29B5 
598 DATA AE, 80, 1B, AE, 84,97, AE, 8C, OF, AE, 84, 13, AE, CG, 4C, 2D9C 
519 DATA AE, 80,33, AE, 48,11, AE, CS, 0C, AE, 8C, 34, AE, 84, 04, 2B4D 
598 DATA 8C,0C, OC, AE, 84, SA, AE, CO, BB, AE, AC, D, AE, 48, BA, 287D 
538 DATA AE, CB, 89, AE, BC, 48, AE, 84, BB, AE, CO, 45, AE, 0C, 49, 2CB8 
548 DATA AE, 48, 19,AE, 8,41, AE, 84,04, 8C, AE, B4, BA, AF, AC, 27CA 
559 DATA 43, 48,80, C, BC, 48, 8C, AC, AE, 48, 86, AE, OC, 4C, AE, 2015 
568 DATA 84,94, AE, 8C, 4D, 48, 48, 48,AE, BC, 8D, AE, BC, B4, AE, 2B82 
579 DATA BC, 46,AE, 4C, BD, AE, 8C, 42, AE, BC, 12, AE, 8C, 39, AE, 2CFB 
588 DATA 4C, (A, AE, 90, 35,AE, 80, 8B, AE, CC, 84, AE, 8C, 8F, AE, 348D 
598 DATA BC, 32, AE, CC, #4, AE, 4C, 4, AE, CC, 8D, AE, 4C, 99, AE, 315F 
688 DATA 80,32, AE, CC, 1B,AE, 8C,64,CC, AE, 8, 39, AE, CC, 1F, 34C4 
619 DATA 4C, 4C,4C, 8C, BC, AC, 4C, AE, 8C, 2, AE, CC, 29, AE, BC, 3872 
628 DATA 64,80, BC, BC, AE, 90, 29, AE, CC, 21, AE, 4C, BB, AE, AC, 2C4D 
639 DATA 27,98,98, AE, CC, 15,AE,98, 96, AE, CC, 97, AE, 80, 97, 34D4 
648 DATA 8C, BC, AE, 40, 23, AE, 64,86, AE, CC, BE, AE, 64, BC, AE, 3103 
658 DATA CC, f4, 4C, CC, CC, CC, AE, 40,95, 40, 8C, 40, 4C, 4C, 4C, 22FF 
668 DATA AE, 9C, 1D, AE, 96, SA, AE, CC, 96, AE, 98, 84, 39, 39, AE, 2FGF 
678 DATA 98, BG,AE, CC, 97, AE, 8C, 96, 8C, AE, BC, 04, AE, 8C, LC, 26A7 
688 DATA AE,64,17,39,34,4E,64,09, AE, CC, BA, AE, 4C, 87, 8C, 2621 
698 DATA 8C, AC, 4C, AE, 8C, 19, 39, 39, AE,98, 11, AE, 39,99, AE, 2973 
798 DATA 98,94, 4E, CC, BE, AE, 8C, #4, 0, BC, AE, 8C, 86, 8C, BC, LECA 
719 DATA 8C, 80, 8C, AC, BC, 8C, BC, AE, 8C, 8, AE, 36,05, AE, 64, 299 
729 DATA BB, AE, 39,48, AE, 64, DA, AE, CC, AC, AE, 4C, BA, BC, AC, 2223 
739 DATA 4C, 4C, AC, BC, AC, AE, 8C, 0E, AE, 39, B, AE, 98, 84, AE, 2B0D 
748 DATA 39,98, AE,98, 8C, CC, CC, AE, 98, #6, AE, BC, 14, AË, 8C, 3392 
759 DATA BE, AE, 39, 1D, AE, 64, 8A, CC, CC, AE, 64,97, AE, 4C, 14, 2F94 
768 DATA AE,9C, CAE, 38, 1E,AEË,98,0F, AE, CC, BF, AE, 8C, BD, 3D4 
778 DATA AE, 8C, A7, AE, 39, 1D, AE, 64, BC, AE, CC, ÎA, AE, 4C, 04, 2BB1 
788 DATA AE, 90, 99, AE, 38, 18,AE,98,0E, AE, CC, LE, AE, 8C, 88, 317 
799 DATA AE, 8C,4,AE, 39,13,4E,64,11,4E, CC, 11, AE, 64, D, 2CD4 
888 DATA AE,CC, 94, AE, 4C, 99,00, AE, 98, BE, AE, 98, 19, AE, CC, 339€ 
819 DATA L1,AE,98, AD, AE, 39, 94, 98, 98, 98, AE, CC, 5, 8C, BC, 3934 
828 DATA 8C,8C, 80, 8C, AC, 9C, AE, 39,95, AE, 64, 17, AE, CC, JE, 2C67 
838 DATA AE,64, BD, AE, 39,49, AË,64, 84, AE, CC, 96, AE, 4C, 6, 2AB1 
848 DATA AË,98, 19, AE, CC, AC, AE, 98, 0, AE, 38, 11, AE, 98, 84, 2E1D 
858 DATA AE, CC, 85, AE, BC, 85, AE, 64, 14, AE, CC, OF, AE, 64,08, 2FB7 
868 DATA AE, 38, 18,64, 64, AE, CC, 86, AE, 4C, 84, 8C, AE, 98, 12, 2ABB 
878 DATA AE, CC, AD, AE, 96,88, AE, 39, 1E, AE, 98,94, AE, CC, 4, 3158 
888 DATA 8C, BC, BC, AE, 64, 19,AE, CC, E, AE, 64, 8C, AE, 39,96, 2B6C 
899 DATA AE, 64,87, AE, 39,95, AE, 64,04, AE, 39,06, 64,64,64, 26E3 
998 DATA AE, CC, 96,64, AË,98,0F, AE, CC, 8D, AE,98, 28, 39,98, 34B6 
919 DATA 9B,AE, CC, 86, 64,64, 4, AE, CC, 97, AE,64, 04, AE, CC, 338 
928 DATA 8F, AE, 64,16, CC, AE, 64,8E, CC, CC, A, 64, 88, AE, CC, 3F50 
938 DATA 23,AE, 98, 11, AE, CC, 86, AE, 968, 99, AE, CC, 31, AE, 64, 39EC 
948 DATA 8D, AE, CC, 99, AE,64,06, AE, CC, BE, 64,64, 64, AE, CC, 3AB9 
959 DATA 27,AE,98, 86, AE, CC, 1C, AE, 98, GA, AE, CC, 43,64,64, 3746 
968 DATA 64,4E, 39,45, AE,64,85, AE, CC, 41,98,98, 98, AE, 39, 391F 
978 DATA 89,98,98, 39, AE, CC, 41,64, 64, AE, 36, 0D, AE, CC, 3F, 3581 
988 DATA AE,98, 84, AE, 38, 4D, AE, CC, 42, AE, 64,85, AE, 39, 89, 2AA5 
998 DATA AE, CC, 48, AE, 96, SA, AE, 38, 86, AE, CC, 3F, AE, 64,85, 3987 
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1999 DATA CC, AE, 64, 88, 39, 38, 39, AE, CC, 42,98, 98,98, CC, 98, 3F74 
1914 DATA 98,98, CC, AE, 98,96, AE, CC, 47, AE, 64,89, AE, CC, 4F, 3BC4 
1929 DATA 98,AE,CC, 56, AE, 54, 18, 48, 49, 4A, 4B, AE, 04,05, 5B, 2243 
1938 DATA 5C, AE, 54,08, 78, AE, 94, 26,48, 49, 4A, 4B, AE, 84,28, 1F42 
1949 DATA 58, 5C, AE, #4, 38,58, 5C, AE, 84, 1C, 78, AE, 94, 9B, 48, 21ED 
1858 DATA 49, 44, 4B, AE, 94,97,5B,5C, AE, 94, 38, 78, AE, 94, 89, 219C 
1969 DATA 5B,5C, AE, 84, 19,48, 49, 4A, 4B, 84,94, 4,58, 5C, 04, 1686 
1978 DATA 84,04, 78,94, AE, 05,04, 2B, AE, 95, 13, 4C, 4D, 4E, 4F, {DFE 
1989 DATA 58, 46,05, 84,5D,5E, 85,05, 85, 6C, 6D, GE, AE, 95,95, 1DBE 
1999 DATA 79, 4E, 05,94, 28,4E, 95, 18, 4C, 4D, 4E, 4F, 59, AE, 45, 228D 
1189 DATA 97,5D,5E, AE, 85, #A, 6C, 6D,6E, AE, 95, 28, 5D,5E, 95, 2251 
1114 DATA 6C, 6D,6E, AE, 95,04, 2B, AE, 95, 13,79, AE, 95, 8B, 4C, 1FAB 


1128 DATA 4D,4E,4F,58, AE, 95,96, 5D,5E, AE, 95,98, 2B, AE, 95,295 | 


1138 DATA 1A,28B, AE, 95, 60, 79, AE, 05, 99, 5D,5E, AE, 85, 89, 28, 1DF3 
1149 DATA AE, 95,06, 4C, 4D, dE, 4F, 58,85, 85, 5D, 5E,45, 05,95, 1398 
1158 DATA 79,05, 06, 96, 96, 28, 29, 2A, 20, 2D, AE, 96, 86, 30, 31, 1587 
1169 DATA 96, 44,45,AE,06,85,51,52,53,54,55, 06,46, 44,45, 1B4B 
1179 DATA 5F,69, 06,06, 06,6F, 78,71,96, 76, 44,45, 7A, 7E, AE, 2CDB 
1189 DATA 96,85,38, 31,06, 96, 28, 29, 2A, 06, 6, 2C, 2, AE, 06, 1435 
1198 DATA 99,38, 31, 4E, 96,95, 44,45, AE, 06,04,51,52,53,54, 1FE6 
1289 DATA 55,4E,06,97,5F,60, AE, 06, 9A,6F, 79, 71, 76, AE, 96, 2994 
1218 DATA 85,65,66, 96, 76,46, 96,99, 44, 45, AE, 06, 8B, 39, 31, 1BD3 
1229 DATA AE, 96,09,5F,68, 6,6F, 79, 71, 76,46, 06, 28, 29, 2h, 1AB9 
1239 DATA 4E, 96, 04, 76,06, 39, AE, 96,07, 44,45,06, 74, 7E, AE, 2672 
1249 DATA 96,98,51,52,53,54,55, AE, 46,06, 5F,69, AE, 06, 97, 294B 
1259 DATA 28,29, 2, 4E, 06,9F, 44,45,65,66, AE, 96,85, 28,29, 1C4F 
1269 DATA 24,96, 20, 20, AE, 86,94, 76,96, 06, 7A, 7E, AE, 06,96, 1DES 
1279 DATA 76,44,45,5F,68, AE, 06,08, 28, 29, 2A, AE, 86, 45,51, 1BF2 
1289 DATA 52,53,54,55,96, 76,5F, 69, 86, 66, 7A, 7E, 96, 3C, 3D, 1EB4 
1299 DATA 3E, 32, 33, 34, 36, 37,38, F, 3E, 3€, 30, 90, 34, 38, 3€, 1BBB 
1349 DATA 46,47, 41,3E,3E, 43,97, 56, 57,58, 59, 5A, 64, E, 46, 2354 
1319 DATA 47,61,62, 41,69, 64, 72, 73, 74,3E, 77,46, 47,70, 7F, 2F2B 
1329 DATA AE, 3E,94, 30, 34, 38,47, C, 32, 33, 34, 35, 3E, 36, 37, 1884 
1339 DATA 38,3E,07,07,3E, 9F,41,8E,3E, 34, 98, 90, 3E, 3€, 3F, 1B5E 
1349 DATA 3E,46,47,3E,3E, 49,3E, 56, 75,58, 59, 5A, 3E, 64,97, 224E 


1959 DATA 3F,3E, 43,3E,61,62,SE, SE, SE, 41,9E, 3C, 3D,3E,69,2125 | 


1368 DATA 6A, 72,73, 74,77. 3E,3C, 3D,3E, 64,67, 68,38, 77,3E, 2829 
1379 DATA 3F,3E,97,97,97,42,3E,3E, 46, 47,3E, 41, 3E, SE, 43, BAG 
1389 DATA 69,6A,3E, 3F, SE, SE, 3A, 3B, dE, SE, 3D, AE, 3E, 94,64, 21A6 
13908 DATA 3E,61,62,3E, 72, 73, 74, 77,8E, 3E,63, 33, 34, 3E, 42, 2413 
1499 DATA SE,3E, 77,3E,2E, 2F,3E, 3E, 3C, 3D, SE, SE, 46, 47,3E, 1DDB 
1419 DATA 7C, 7F,3E,3E, 69,64, SE, 3F, SE, SE, 42,3E, 41, 56,57, 22D1 
1429 DATA 58,59,5A,3E,64, 3E,3E, 42, 3E, 61,62, SE, 64,30, SE, 234E 
1438 DATA 97,3E,3E,63, 33,34,3E,3E, 3F, 97,3E, SE, 41,93€, 3E, 1B94 
1449 DATA 43,3E,3E, 3F,3C, 3E, 46, 47,67, 68, 38,3E, 3C, 3D, 3E, 293 
1454 DATA 32,33, 34,35, 36,37, 38, 8E, 3F, SE, 77, 8E, 41, 7C, 7F, 2606 
1469 DATA 3E,3E,64,3E,3F,3E, 77,46,47,61,62,3E, 3F,3E,3E, 229E 
1478 DATA 97,97,3E, 3C, 32,33,34,3E, 69,64, 97, 8E, 56, 75,58, 223D 
1489 DATA 59,5A,3E, 77,61,62,3F,64,7C, 7F,41,1E,21,29, 1E, 1F61 
1499 DATA 27,1E,1D,21,1E,1E, 1E,21,1E,29,21, 1E, 21,29, 1E, SEB2 
1589 DATA 21,1E,1E,21,1C,21,1E, 1D, 1E, 21, 1E, 1E, 1E, 29, 1E,DE59 
1519 DATA ÎE,1E,29, AE, 1E,94,21,28,27,1E,21,28,1E, 21, 1E, 1993 
1529 DATA 21,1E,27,21,1C,1D,21,1E, 1E, 21, 1E, 1E,21,29,21,DECD 
1538 DATA 27,21,21,29,21,21,1F, 1D,1E,21,1E,28,27,21,1E, 8FIE 
1548 DATA 21,1E,1D,1E,21,1E, 21,28, 1E, 21, 1E, 21, 1C, 1E, 21, 8E99 
1558 DATA 29,1E,27, AE, 1E,95, 1D, 1E, LE, 1E, 29, AE, LE, 85,29, 1566 
1569 DATA {E,{E, E, 1D, AE, 1E,94, 1D, 1E, 21,27, 21, 1C,27,28, 1145 
1578 DATA 1E,21,1E,29,1E, ÎE,21,1E,28,21,1E,21, LE, (D, 1E,8E79 
1589 DATA 27,21,1E,29,1E,1E,21,1E, 21,27, 1D, 1E,21, AE, ÎE, 16AD 





1598 DATA 8D,21,1E,1E, 21, 1D,1E,21,1E,21,1E, 21, LE, 29, 1E, BE84 
1689 DATA 21,21,29,1E,21,1E,21, 1E, 1E, 29, 1E, 21,27, 1E, 28, 9FDE 
1614 DATA 21,1E,21,27, 1D,1E,21,28, LE, LE, LE, 21,29, 21,27, 8F4F 
1629 DATA 21,27,28,21,AE, 1E,94, 10, 1E, 1E, 1E, 10, 1E, 1E,21, 1962 
1638 DATA 1E,1D, 1E,27, 1E,28, 1E, 1E,21,21,1E, 1D, 27, 1E,21, SF9D 
1649 DATA 1E,29,1F,21,1E,21,1E, 29,27, 21, 1E, 29, ÎE, 21, 1E,DEF3 
1659 DATA 21,1E,1D,1E,21,1E,29,1E,27,21,27,28,21,21,27,8FEF 
1669 DATA 21,29,21,1E,1F, 1E, 1D, 1E, 1C, 27,28, AE, 1E,04,21, 13F8 
1678 DATA 1E,1D,27,21,1E,28,1E,21,26,1F,22,1F, 26, 1F, 22, 8F95 
1688 DATA 1F,26,1F,1F,26,1F,22,26,1F,1F,22,1F,26, AE, 1F, 1754 
1699 DATA 96,22, AE, 1F,95,22,1F,26,1F,22,1F,26,1F,1F,26, 19C5 
1799 DATA 22,26,1F,1F,22,1F,1F,26,1F,1F,26,1F, 26,22, 1F,9FB2 
1719 DATA 26,1F, 26,26, 1F,26,22,1F,26,26,1F,22, 26,26, 1F, 1965 
1729 DATA 22,1F,26,1F,22,1F,26,1F,26,1F,22, 1F,26, 1F,26, 1994 
1738 DATA 22,1F,26,26,1F,26,1F,1F,22,1F,1F,26,1F,1F,26, BFBE 
1749 DATA 1F,22,1F,26,1F,22,1F,26,1F,1F,26, 22, 1F,1F,26,9FCE 
1758 DATA 22,1F,26,1F, 26,22, 1F,26,1F,1F,26,1F, 22,26, 1F,SFE3 
1768 DATA 1F,22,1F,26,1F,1F,22,26,26,1F, 1F, 22, 1F, 26, 1F,FBC 
1778 DATA 26,22, 1F,1F,26,1F,26,1F,22,1F,1F,26, AE, 1F,8B, 156F 
1789 DATA 26,1F,1F,26,1F,22,1F,1F,26,1F,26,1F, 1F,22, {F,9F73 
1799 DATA 26,1F,22,1F,1F,26,1F,26,1F,22,1F,26,1F, 26,22, 8FFB 
1888 DATA 1F,26,1F,1F,22,26,1F,22,1F,26,26,1F,22,1F,26, 199A 
1819 DATA 1F,1F,22,1F,26,1F,26,1F,1F,26,1F,1F,22, 1F,26, SFBB 
1828 DATA 1F,1F,22,1F,26,1F,22,1F,26,1F, 1F,26,22, 1F, 1F,9F63 
1839 DATA 26,1F,22,1F,26,1F,26,1F,22,1F,1F,26,22, 1F,26, 8FEB 
1849 DATA 1F,26,1F,22,1F,26,1F,22, 1F, 26, 1F,26,22,1F,26, 199E 
1858 DATA 1F,1F,22,26,1F,1F,26,22,1F,26,1F,22,1F,1F,26,BFC9 
1869 DATA 1F,26,1F,22,1F,26,1F, 22, 1F, 26,95,9F,0F, DA, AE, 13B7 
1878 DATA 89F,95,00,06,0F,9F,08,09,9F,9F,00,00,8F,0F,08,9378 
1889 DATA 99,AE,0F,85,05,9F,0F, 8A,99, 05, A, 09,00,0F,9A,94DI 
1899 DATA 99,99, 9F,0A,06,90,95,9A,08,00,05, A, BB, 99,95, B1C2 
1998 DATA 9A,99,09,95,0A,90,08,05, 04, 69,9F,0F,9F, DA, AE, GDAC 
1919 DATA 9F,94,99,09,96,9F,90,0F,0F,9F,95,9F, AE, 89,86, BC21 
1928 DATA AE,8F,19,AE,08,95,05,0F, 04, 09,0F,0F,9F, 00,09, 06ES 
1939 DATA 99,AE, 0F,98,0A,08,0F,0F,08,95,0F,0A,00,8F,8F, B5BE 
1949 DATA 99,99, AE,9F,08, AE, 09,06, 9F, 5A,00,09,0F, OA, AE, 131E 
1959 DATA 8F,98, AE, 99,94,9F,0F,9F,0A,AE,0F,94, 80, 00, 80, 0B73 
1969 DATA AË,9F,98, 9A,95, AE, 9F, 6, 94, 89,99,0F,0F,0F,4A,991B 
1978 DATA AE, 0F,95,9A,08,AE,0F,95,95,0F,0F,9A, AE, 8F,06, 11AB 
1989 DATA AE, 99,06,85,0F,00,99,05,9F, 60,99, 95,9F,99,09,92CD 
1999 DATA 05,9F,99,09,95,9F,05,9F,0F, OA, AE, 0F, 05, 80,90, BAGB 
2999 DATA 9F,95,9F,8F,9A,95,0F,9F,0A,9F, 09,90, AE, 0F,95,9C96 
2919 DATA 95,8F,0F,0A,05,0F,9F,9A, AE, 9F, 85,00, 00, AE, 8F, 12F4 
2929 DATA 95,85,9F,9F,0F, 00,09, 99, AE, F,98, 6A,99,02,93, D80ÿ 
2939 DATA 84,06,97,097,08,98,08,97,07,06,94,93, 92,99, 93,921B 
2849 DATA 96,99, 0B, 0D,9F, 19,19, 19,9F, 90, 9B, 09,96, 03,99, AGE 
2958 DATA 86,8C,12,17,1B,1E,1F,28,1F,1E,1B,17,12,9C, 96, BASB 
2869 DATA 99,40, 18,24,2D,35,3B,3F, 4, 3F, 3B, 35, 2D, 24, 18, 1688 
2978 DATA 8C,99,91,92,92,93,94,94,95,96,96,97,87,87, AE, CSD 
2889 DATA 98,97,97,07,07,86,96,05, 84, 04,03,02,92,01,99,D18D 
2999 DATA 92,893,95, 96,98, 99, 9A, 9B, 8C, 9D, SE, 9F, 8F, AE, 19, BE9E 
2199 DATA 95,9F,0F,0E,0D, 9C, 8B, SA, 99, 96, 06, 05,93,92,09,9319 
2119 DATA 93,96, 99, 4C,9F,12,14,17,19,1B,1C,1E,1F,1F,29,8CD5 
2129 DATA 29,28,1F,1F,1E,1C, 18, 19,17, 14, 12,8F,9C, 99,96, 0881 
2139 DATA 83,98, 96,9C, 13,18, 1E, 24,29, 2D, 31,35, 38, 3B, 3D, 1495 
2149 DATA 3F,49,48,49,3F, 3D,3B, 36, 35, 31, 2D, 29,24, 1E, 18, 1597 
2159 DATA 13,9C, 96,99, 01,92, 92,93,04,96,05,66, 06, 97,07, 8258 
2168 DATA 97,AE,96,97,07,97,07,86,96,05,94,04,93,02,02,936A 
2178 DATA 91,99,FF,FE,FE,FD,FC,FC,FB,FA,FA,F9,F9,F9, AE, G6E14 


_40_ 


2189 DATA F8,97,F9,F9,F9,FA,FA,FB, FC, FC, FD, FE, FE, 99,99, 579D 
2199 DATA 92,43,05,96, 98, 99, SA, 9B, 9C, 9D,6E, 9F, 8F, AE, 19, BE9E 
2289 DATA 95,9F,8F,9E, 0D, 8C, 9B, SA, 99, 98, 96, 95,93, 02,99,9318 
2219 DATA FE,FD,FB,FA,F8,F7,F6,F5,F4,F3,F2,F1,F1, AE, F8, 6EGA 
2229 DATA 95,F1,F1,F2,F3,F4,F5,F6,F7,F8,FA,FB, FD, #9, 45,5B21 
2238 DATA CF,33,37,3F,FF,AF,9F,45,CF,33,37,3F,FF, AF,8F, 3478 
2249 DATA 45,CF,33,37,3F,FF,AF,8F,45,CF,33,37,3F,FF,AF, 3A7C 
2254 DATA 8F,45,CF,33,37,3F,FF,AF,9F,45,CF,33,37, 3F,FF, 3688 
2268 DATA AF,8F,45,CF,33,37,3F,FF,AF,0F,C3,EE,62,C3, 84, 3AF8 
2278 DATA 63,03,59,63, 11,98, D, CD, D6,62,15,F2,CC, 62,11, 33CD 
2289 DATA 3F,87,AF,96,F4,ED,51,91,C4,F6, ED, 49, ED, 79,96, 3FFB 
2298 DATA F4,ED, 59,91, 88,F6, ED, 49, ED, 79,C9,E5, CD, 34, 63, 4868 
2398 DATA E1,22,AC,67,11,84,99,19,5E,23,56,ED,53, AD,67,2C74 
2319 DATA C3,58,63,98,B7,F8,DD, 2A, AC,67,26,98,6F, DD,56,35D1 
2328 DATA 8E,DD,5E,8F,19,DD,56, 89, DD, 5E, 91, DD, 19, 29, EB, 3243 
2338 DATA DD, 19, DD, 5E, #8, DD,56, 91,ED,53,98,67,3E, 81,32, 29BF 
2348 DATA 9C,67,32, A3,67,C9,AF,21,6E,67, 11,6F,67,91,2F,26F3 
2358 DATA 99, 77,ED,B9,21,9E,67,11,9F,67,91,8D, 98, 77,ED, 2CD8 
2368 DATA B9,36,38, C9, 98, 21,9F,67,35,C2,62,64,99, DD, 2A, 2E22 
2378 DATA AC,67,3A,6F,67,DD,96,99, 28,28, 3A, A8, 67, DD, 96, 35F8 
2389 DATA 97,20,88,DD,7E,85,32,A9,67,18, 94,21, A9,67,34, 23DA 
2398 DATA 21,99, 98,22,6E,67,22,7E,67,22,6E,67, DD, 56,82, 2A93 
2498 DATA DD,5E,93, DD, 19, 26,98, 3A, A8, 67,6F,29,29,54,5D, 24BE 
2418 DATA 29,19,EB, DD, 19,34, A3,67,B7,28,99,21,8F,67,34,29F5 
2428 DATA 34,3E, 81, 18,92, 3E, 92, DD,E5,E1, DD, 21,6E,67,F5,3EFC 
2439 DATA 7E,23, DD, 77,93, 7E,23,DD, 77,92, 7E, 23, DD, 77,8F,2E84 
2449 DATA 23,E5,FD, 2A, AC, 67, FD, 4E, 89, DD, 46, 83, CD, 5C, 67, 3648 
2458 DATA FD, 46, 8C, FD, 4E, 9D, FD, 19,FD,99,FD,E5,E1, DD, 56, 4A8F 
2468 DATA 98,DD,5E, 81,19, DD, 75, 84, DD, 74,95, 7E, 23,32, 2B, 254À 
2478 DATA 64,7E,B7, 28,93, DD, 86,9F, DD, 77,99,B7, 28,86, DD, 31CD 
2489 DATA 7E,8E,B7, 29,25, FD, 24, AC,67, FD, 56,09, FD,5E, 91, 33AB 
2498 DATA FD, 19, DD, 6E, 99,26, 98, 29,EB, FD, 19, FD, 7E, 98, DD, 3444 
2589 DATA 77,8A,FD,7E,81, DD, 77,8B, DD, 36, E, 81, 3E, 99,B7, 26AC 
2518 DATA 28,17, DD, 86, 92, DD, 77,98,6F,26,88,11, AE, AE, 91, 2656 


2529 DATA 67,29,19,7E,23,DD, 77, 8D,7E, DD, 77,8C,DD,34,91,2D5F 4 
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2539 DATA DD, 34, 91, 11, 19,98, DD, 19,E1,F1,3D,F2,B4,63, DD, 437A 
2549 DATA 2A,AC,67,DD, 7E, 8B, 32,9F,67, C9, DD, 21,6E,67, DD, SDE8 
2559 DATA TE, 8E,B7,28, 84, AF,CD,9C,64,DD,21,7E,67, DD, 7E, 3E34 
2569 DATA 9E,8B7,28,85,3E,81,CD, 9C, 64, DD, 21,8E,67, DD, 7E, 3AAB 
2578 DATA JE,B7, 28,95,3E,92,CD,9C,64,21,AB,67, 16,#7,5E, 25C2 
2589 DATA CD,D6,62,2B,15,F8,18,F7,32,9E,67,FD, 2A, AC,67,3CAE 
2598 DATA FD,56, 99,FD,5E,91,FD, 19,DD,56, A, DD, 5E, 8B, FD, 394A 
2688 DATA 19,FD,7E,68,FE,FF,CA, 19,67,FE, F9, 29,21,3A,9E,3C41 
2619 DATA 67,C6,88,57,FD,5E,91,CD,D6,62,DD,66, SA, DD, GE, 3DAG 
2628 DATA 8B,23,23, DD, 74, 8A, DD, 75,88, FD, 23, FD, 23,C3,B3, 3EF1 
2639 DATA 64,FE,F1,29,34,26, 68, 3A,9E,67,6F, 11,59, 67, 19, 242E 
2649 DATA 7E,21,AB,67,B6,77,34,9E,67,C6,98,57, 1E, 19, CD, 2F6B 
2654 DATA D6,62,16,8B,FD,5E,#1,CB,3B,CD,D6,62, 11, 98, 8C, 28FC 
2668 DATA CD,D6,62, 11,8E, 8D, CD, D6, 62, C3,32,67,FE,F2, 28, SECE 
2678 DATA 21,FD, 7E,91,CB,3F, 32, AA,67,26,98,3A,9E,67,6F,2BB4 
2688 DATA 11,59,67,19,7E,5F,2F,87,47,87,21,AB,67, A6,B3, 2B4D 
2698 DATA 77,C3,32,67,FE,F3,28,15,16,98,FD,5E, 81, DD, 66, 3289 
2789 DATA 6C,DD,6E, 8D, 19, DD, 74, 8C, DD, 75,9D, C3, 32,67,FE, 3993 
2719 DATA F4,29,17,16,88,FD,5E,91,DD,66,8C, DD, 6E, 8D, 87, 31FF 
2729 DATA ED,52,DD, 74,8C, DD, 75, 8D, C3, 32,67,FE,F5, 29, 1A,37D8 
2738 DATA DD, 7E, 88,FD, 86,91,26,88,6F,11,AE, AE, 81,67,29, 25DC 
2748 DATA 19,7E,23,DD,77,8D,7E, DD, 77, 8C,C3,32,67,FE, F6, 42D6 
2758 DATA 29,15, DD, 66, 9A,DD,6E, 9B, 16,98,FD,5E, 81,B7, ED, 3532 
2768 DATA 52,DD, 74, 8A,DD, 75,8B,C9,FE, F7, 28,07, AF, 32, A3, SAAB 
2778 DATA 67,C3,19,67,FE,F8,28,8E,2A, AC,67,11,8B, 99, 19, 1F5B 
2788 DATA FD,7E,91,77,C3,32,67,FE,F9, 29, 3C, 3A,9E, 67, C6, 3C23 
2799 DATA 96,57, 1E, 19,CD,D6,62,FD,6E,#1,FD,66, 82, CB, 3C, 3732 
2899 DATA CB,1D,16,8B,5D, CD, D6, 62, 16, 8C,5C, CD, D6, 62, 16, 314E 
2818 DATA 9D,FD,5E,93, CD, D6,62,DD,66, SA, DD,6E, BB, 11,94, 222 
2828 DATA 99,19,DD, 74,84, DD, 75,8B,C3, 49,67,FE, FA, 29, 28, 3786 
2838 DATA 11,99, 9B, CD, D6,62,11,98,8C, CD, D6,62, 11,96, 8D, 222F 
2849 DATA CD,D6,62,FD,23, DD, 34, 6B, D2, B3, 64, DD, 34, 8A, C3, 3ADS 
2858 DATA B3,64,FE, FC, 28, 1E, 26,98, 3A,9E,67,6F, 11,59,67, 285E 
2868 DATA 19,7E,2F,97,97,87,21, AB,67, A6, 77,2B, FD, 7E, 91, 2D52 
2878 DATA CB,3F,77,C3,32,67,FE,FD,28,47,26,88,3A,9E,67,2F1F 
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2888 DATA 6F,11,59,67,19,7E,21, AB,67,B6, 77, DD, ?E, 98, C6, 398C 
2899 DATA 36,6F,26,99, 11, AE, AË,91,67,29,19,6E, 26,88,22, 1A13 
2988 DATA A1,67,CB,3D,5D, 16,88, CD, D6,62, 11,99, 0C, CD, D6, 323F 
2919 DATA 62,16, 9D,FD,5E,91,CD,D6,62, 3A,9E,67, C6, 86,57, 33BB 
2928 DATA LE, 19,CD,D6,62,C3,32,67,FE,FE, 29, 22, FD, 7E, 1, SAAD 
2939 DATA B7,FA, 46,66, DD, 86,98, 18,92, D6,89,26,80,6F, 11, 2569 
2949 DATA AE, AE,91,67,29, 19,7E, 23, DD, 77,90, 7E, DD, 77,4C, 2EE7 
2954 DATA C3,32,67,B7, 28,9C,DD,34,6B,D2, 48,67, DD, 34, BA, 2C9D 
2968 DATA C3,48,67,FE,91, 29,27, 26,88, 3A,9E,67,6F, 11,59, 2328 
2974 DATA 67,19,7E,5F,2F,CB,93,CB,83,CB,93,21,AB,67, A6, 3164 
2988 DATA B3,77,FD, 23,DD, 34,8B,D2,B3, 64, DD, 34, 8A, C3, B3, 3D55 
2999 DATA 64,FE, 93,29, 1F,2A,A1,67,FD,5E,91,16, 89, AF,B3, 2DD2 
3899 DATA F2,88,67,15,19,22,A1,67,CB, 3C, CB, 1D, 16, 8B, 5D, 262E 
3818 DATA CD,D6,62,C3, 32,67, AF, DD, 77,8E, 26,98, 3A,9E,67, 2DBC 
3828 DATA 6F,11,59,67,19,7E,97,87,97,21,AB,67,B6, 77,18,25F$ 
3938 DATA JE, DD, 66, A, DD, 6E,4B, 23,23, DD, 74,84, DD, 75,8B, 2D81 
3949 DATA 26,98,3A,9E,67,6F,11, 4,67, 29, 19, DD,56, 8C, DD, 3221 
3959 DATA 5E,9D,CB, 3A,CB, 1B, 73,23, 72,C9,81,82,84, AF,69, 2883 
3869 DATA 67,5F,57,78,96,98,9F, 39,93, EB, 19, EB, 29, 19,F7, 2D8F 
3878 DATA C9, AE, 08, 3D,38,98,08,EE, DE, 17,8E, 4D, SD, 8E, 8C, 1 ASC 
3988 DATA D9,8B,2F,9B,6E, BA,F7,99,67,99,E8,98,61,08,E8,2CA1 
3898 DATA 97,77,07,8B,97,A6,96,47,06,EC,95,97,85, 47,85, 1CC6 
3188 DATA FB,94,B3,84,78,84,39,94,F4, 63, BB, 03,85, 03,53, 238B 
3118 DATA 83,23,93,F6, 92,CB,92, A3, 82, 7D, 92,59, 82, 38, 82, 1A9A 
3128 DATA 18,92,FA,81,DD,81,C2,81,A9,81,91,91,7B,01,65,2535 
3138 DATA #1,51,91,3E,91,2C,91,1C,91,8C,91,FD,89,EE, 99, 1CFE 
3148 DATA E1,98,D4,89,C8, 89, BD, 89, B2, 89, AB, 69,9F, 99,96, 2AC7 
3158 DATA 99,6E, 09,66, 98,7E, 98, 77,08, 78,08,6A,90,64,99, 18B9 
3169 DATA 5E,98,59,89,54,80,4F, 89, 4B, 99, 47,09,43,08,3F,11FE 
3178 DATA 89,3B, 98,38, 08,35, 98, 32, 88,2F,08,2C, 86, 2A, 29, BA56 
3188 DATA 27,86,25,89,23,89,21,89,1F, 89, 1D, 89, 1C, 08, 1A,8774 
3198 DATA 99, 19,98, 17,08,16,99,15,98,13,89, 12,86, 11,89, 843E 
3289 DATA 19,98,0F,00,08,16,02,C6,09, 89,99,93, 68, 18,99, 8F0F 
3218 DATA 86,99, BD, 98, 9F,26,63,29,28,4C,41,52,59, 89, 39, 1978 
3229 DATA 99,31,98,3F,09, 4E, 09, 5A,08, 60,98, 66,09, BE, 98, 1666 
3238 DATA 96,98,9C,98,BE, 98, C2,98,D6,98, DC, 68,E4, 89, F9, 36BC 
3249 DATA 91,88,91,1F,91,3E,91,5C,91,68F,91,D9,92,22,92, 166E 
325$ DATA 6C,FF,F9,9E,F2,9D,91,FE,99,FE,94,FE, 8A, FD, 89, 4824 
3268 DATA FF,F9,9E,F2,94,91,FE,9E,FE, A9,F2,93,81,F9, 95, 39B2 
3279 DATA FF,91,F8,9D,FE,9C,FE, 18,FE,24,F0,8B,FF,F1,1E, 4222 
3288 DATA F5,F4,81,FF,F1,22,F5,F4,81,F3,03,FF, F9, DE, FE, 4C22 
3298 DATA 8C,FE, 09,08,08,F8,0D,AE,98,84,F8,9C, AE, 99,94, 218D 
3399 DATA F3,91,F3,92,F3,82,F3,81,F4,91,F4,03,F4,91,F4, 3D4A 
3314 DATA 81,F6,19,F4,0B,F2,94,81,F0,68,FF,FD, 98, 81,F5, 30F6 
3328 DATA F4,FF,F9,0E,FE, 8C,FE, 99,09, 80,F9, GD, AE, 06,94, 2628 
3334 DATA F,0C,AE,99,94,F3,91,F3,92,F3,92,F3,91,F4,91,32F5 
3349 DATA F4,91,F6,8C,F0,99,91,FF,91,F9,0E,FE, 99, FO, 9D, 3485 
3354 DATA FE,0C,F8,0C,FE, 18,F4,9B,FE,24,F8,99,FF,F1, 32, 4239 
3369 DATA F5,F4,91,FF,F1,1C,F5,F4,91,F3,93,FF,F3, 92,98, 3C9B 
3378 DATA F3,91,90,F4,81,F4,91,F6,9A,F1,88,F1,81,F1,92, 34A2 
3388 DATA F1,#4,F1,98,F1,8C,F1,19,F1,14,F1,18,F1,{E,F5, 49F8 
3398 DATA F4,91,FF,91,F8,9F,FE, AB,FE,9E,F0,SE,FE,9C,FE, 5355 
3498 DATA 9A,FO,8D,FE,98,FE,96,F9,98,91,F7,91,FC,05,F8,49F4 
3419 DATA OF,FE, AB,FO,0E,FE,9E,F8,9D,FE,OC,FE,9A, F9, 8C, 4C5A 
3428 DATA FE,98,FE,94,F9,A,FE, 96,F8,99,91,F7,91,F9, QD, 3A95 
3438 DATA F2,98,81,F9,9F,FE,AB,F8,$E,FE,96,F8,8D,FE, 98, 4A13 
3449 DATA F8,8C,FE,88,F9,8B,FE, 84,F9, 89,81,F7,91,F4,9C, 3816 
3458 DATA F2,892,01,F9,9F,FE,B9,FE,B8,F8,6E,FE, B6, F9, BD, 4B72 





3478 DATA 89,08,F,08,08,F8,97,68,F8,95,98,F8, 83, 69, FO, 2AE3 
3488 DATA 88,81,F7,81,F0,9F, F2, 1E,91,FE,09,FE, 8D, F2, SE, 49AB 
3499 DATA FE,88,F2,1C,F2,19,F8,9D,F2,16,F2, 14,89, FD,AC, 3424 
3588 DATA F2, 11,09,08,F0,8B, F2, 8F,89, FO, 04, 09,09, F8, 98, 2482 
3514 DATA F2,84,06,08,F0,06,08,08,F8,90,F2,85, 89, 49,FO, 2724 
3529 DATA 92,89,09,08,F0,89,01,F7,81, F8, 09, F2, E, F2, 1C, FE 
3539 DATA F9,0A,F2,19,F8,9B,F2,17,FB,8C,F2, 14, FD, 8D, F2, 3FDB 
3549 DATA 11,F,0E,F2,0F,F2,8C,FO,8F, F2, 0A, F2, CFO, 0E, 37FD 
3558 DATA F2,8E,08,F2, 19,08,F8,8D,F2,12,88,F8, AC, F2, 14, 2FOB 
3564 DATA 99,F8,0B,F2, 16,99, F9, 8A,F2, 16,89, F4,98,F2, 1A, 38F3 
3578 DATA 99,F9,06,F2, 1E,98,F8,04,F2,1E,08,F8,0,81,F7, 3075 
3589 DATA 91,F0,06,F2,1E, AE, 09,84,F9,8F,F2, 1E,08,08,98,1F71 
3598 DATA F8,0E, F2, 1E,00,98,F2,1C,08,98,F8, 60, F2, 19,99, 2460 


| 3688 DATA 99,F2,14,99,09,F0,0C,F2,9F,09,99,F2,9D,99,98, 1C2C 
| 3614 DATA F9,0B,F2,9A,08,08,F8,9A,F2,95,08,98,F9,86,F2,2E66 


3629 DATA 92,99,09,F9,96,F2,09,90,99,F9,09,91,F7,91,F8,2DAÎ 


| 3639 DATA 9F,FE, A,09,F8,9E,FE,A5,8,F8,9D,FE, AC, 89,F8, Q1AC 
| 3649 DATA OC,FE,B1,99,F9,8B,FE, AG,99,F9,QD,FE, A5,09,F#,4147 


3654 DATA 8C,FE, AC,99,F8,9B,FE,B1,98,F8,0A,FE, A9,80,F9,415E 
3668 DATA 98,FE,A5,89,F0,85,FE, AC, 89,F9,99,81,F7,91,9C,2BCC 


| 3678 DATA 92,09,06,08,03,98,17,98,99,99,02,0C, 82, 99,06, 922F 





| 3688 DATA 99,93, AE, 89,05, 83,0C, 02,09,96,99,93, AE, 00,05, 0C28 


3699 DATA 92,00, 02,99,06,98,93, AE, 98,95,91, 90, 82, 80,96, 9704 
3798 DATA 99,83, AE, 89,05, 84,0C, 82,99, 86,99, 03, AE, 09,95, 9C26 
3719 DATA 95,0C, 92,98,96,FE, 94, AE, 68,95,94,0C, 82, 99, 96, BD23 
3729 DATA 99,93,AE, 90,05, 81,0C, 82,99, 06,99,03,00,07,00,0355 
3739 DATA 99,99, 92,0C,82,98,06,98,93,98,07,09, 89, 90,93, 89FF 
3749 DATA 8C,82,99, 96,09, 93,99, 87,09, 89,08,02,0C,02,99,9142 
3754 DATA 96,99, 93,99,07,98,08,98,91,9C,02,98,96,90,93,8144 
3769 DATA 98,97,09,90,08, 84,00, 92,99, 66,09,93,69,07,98,D14C 
3778 DATA 99,09,05,9C,92,98,06,FE, 04, 60,07,60,89, 90,84, 8919 
3789 DATA 9C,92,09,06,00,93,09,07,99, 99,09,01,0C,02,98,9136 
3798 DATA 96,98, 93, 09,09,08, 98,08, 92,9C,02,98,96,90,93,8157 
3899 DATA 99,8A,09,00,08,83,0C, 82,09, 06, 09,03,09,09,98,8168 
3819 DATA 99,09, 02,0C, 92,98, 06,08,63,98,0A,98,90,00,91,5192 
3828 DATA 9C,92,09,06,09,83,09, 89,09, 09,09,04,0C,02,99, 0164 
3838 DATA 96,99, 93,06,0A,08,08,98,85,0C,92,98,86,FE, 94, BFGA 
3849 DATA 99,99,00,99,00,84,0C, 92,09, 86,09, 93,09, 0B, 99, 0188 
3859 DATA 99,98,9C,99,98,98,19,0C,95,98,91,0C, 82, 99, 8D, 8299 
3868 DATA 69,89,09,11,0C,85,99,02,0C, 82,99,0C,99,09,09,D1BE 
3874 DATA 12,0C,95,98,93,0C, 02,99, 6D, 99,08,08, 13, 80,85, 82FD 
3889 DATA 99,92,0C, 02,09, 8C,09, 69,99, 19,0F,05,09,01,0C, 52BB 
3899 DATA 92,898, 0D,08,08,98,15,0C,05,98,04,6C, 82, 80,9F, 388 
3989 DATA FE,68,98,11,97,85,99,85,0C, 02,08, 0E,99,09,06,82D3 
3914 DATA 17,9C,95,08,94,9C,02,08,0C,06,08,88, 19, 16,95,837F 
3928 DATA 99,81,0C, 92,99, 8D,89,09,99,11,18,85,09,02,0C,933A 
3939 DATA 92,98,9C,99,08,98,12,18,95,98,03,0C, 82,80, 0D,831F 
3948 DATA 69,89,98,13,18,85,99,92,0C, 62,88,0C,99,00,98,0202 
3959 DATA 19,1B,05,98,91,9C, 92,98, 0D,98,98,08,15,16,85,93D1 
3969 DATA 98,84,0C,92,99,9F,FE, 89,09, 11,13,05,99,05,4C, DA31 
3979 DATA 92,89,0E,09,08,08,17,18,95,98,04,9C, 82, 89,16, 93F8 
3989 DATA 93,89,08,1B,24,85,99,81,1B, 92,08, 19,03,00,08,53A3 
3994 DATA 1C,24,95,98,92, 1B, 92,98, 18,93,00,88, 1D, 24,85, B5DF 
4999 DATA 69,93, 1B, 82,99, 19,93, 88,99,17,FC,05,99,02, 1B,DEBI 
4919 DATA 92,98, 18,93,98,08,17,FC,95,90,91, 1B, 92,90, 19, BBE4 
4929 DATA 83,89,09,17,FC, 88,99, 84, 1B, 92,09, 18,91, 00,99, 97CF 
4938 DATA 17,FA,05,98,95, 1B, 92,98, 1A,93,98,98,17,FC, 85, 1329 
4949 DATA 99,84,1B,82,08,8C,09,09,98, 19, 18,95,99,01,9C,934F 


3469 DATA FE,B3,F89,8C,FE,B9,F8,8B,FE, AB,F4,0A,FE, A9,F9,535E w 4959 DATA 92,98, 0D,99,98,08,11,18,95,98,02,0C, 82, 99, 0C, B3B1 


42 


a  ] LE LEEETETEETEREEETEEEEEEETTRRERETERERERRERREERUEE 
ul 


un ù 
[PPT L 
NT NTI NIET EN ITTLI TELLE TEL ALL LITE LA LA LL CPTPTPTTEN TETE TENTE CELA ET LATE LATE LLL LATE LL TTL LELL 


Ur 


4970 DATA 13,18,05,99,92,0C,92,08,0C, 90,08,08, 10, 1B, 85,383 
4989 DATA 99,01,0C, 02,09, 80,99, 80,09, 15, 18,95,09,94,9C,937E 
4999 DATA 92,00,0F,FE,99,98,11,13,95,99,05,0C, 82, 99, 8E, 716 
4199 DATA 09,00,09,17,18,95,09,04,0C, 02,99, 06,09,03,99, 0294 
4119 DATA 1F,99, 09,09, 17,90,99,06,06,99,93,09,1F, AE, B9, 8C3F 
4129 DATA 97,86,FE, 84,09, 29, AE, 00,07, 06,09,03,09,1F, AE, 1522 
4138 DATA 99,07,06,09,03, 08, 1F,AE, 08, 97,96,08, 03,90, 1F,86FE 
4149 DATA AE,88,97,86,FE, 94,99, 29, AE, 00,07, 06,09,93, 99, 9DC6 
4159 DATA {F,AE,99,97,18,993,08,08,18,24,05,98, 81, 18,02, 9658 
4169 DATA 09,19,93,99,09, 10,24, 85,99, 02, 1B, 92,09, 18,93, 94D9 
4174 DATA 89,09, 10,24, 05,98, 03, 18,92, 08, 19,03, 80,00, 17,848F 
4189 DATA FC,05,09,82, 1B, 92,99, 18,83, 09,98,17,FC, 05,99, 19A2 
4199 DATA 81,1B, 92,98, 19,93,98,98,17,FC,88,08,B4, 1B, 92, 5D97 
4289 DATA 98,16,01,00,00,17,FA,85,09,05, 1B, 92,98, 1A,93, DAC7 
4219 DATA 89,98,17,FC,05,98,94, 1B, 62, 89,06,09,93, 89, 1F, 78E 
4229 DATA 09,88,08, 17,00, 89,89, 96,09, 93,08,1F, AE, 09,07, 0B03 
4239 DATA 86,FE, 94,99, 29, AE, 08,07,06,98,93,08, 1F, AE, 99, 1268 
4249 DATA 07,86,98,93,88,1F, AE, 89,97,86,09,03,99,1F, AE, 121E 
4259 DATA 89,97, 06,FE, 04,99, 28, AE, 00,97,06,09,03,89,1F,BCFC 
4269 DATA AE,80,07,86,09,93,99,98, 18, 95,99,1F,99,00,99,D3AB 
4270 DATA 06,99,03,99,14,18,95,98,1F,69,08,08,06,FE, 94, 19AB 
4288 DATA 99,16,16,95,98, 20,09, 80,09, 66,99,03,99, 22, 18,B4EC 
4299 DATA 95,09, 1F,99,00,00,06,08,93,AE,08,95, 1F, 99,9, 8942 
4300 DATA 99,96,09,93, AE, 89,05, 1F,99, 00,99,06,FE, 04,98, 11FF 
4319 DATA 17,9A,05,09,20,90,00,08,06,00,93,08,17,8C,05,034F 
4329 DATA 99,1F,09,00,09,06,09, 93,99, 08, 18,05,99,1F,98,93C9 
4339 DATA 89,99, 06,99, 93,99, 14,18,95,99,1F,99, 89, 89,06, 9349 
4349 DATA FE, 84,09, 16,16, 95,09, 20,99, 89,09, 06, 09,03, 98, 0366 
4359 DATA 24,18,95,98,1F,90,08,08,96,09,93, AE, 99,95, 1F, BB94 
4368 DATA 99,98,09,06,09,03,AE, 90,85, 1F,99,09,09,06,FE, 1585 
4378 DATA 84,09,17,16,95,99,29,99,08,00,96,08, 83, 99,17,835C 
4389 DATA 18,95,09,1F,99, 66,00, 86,93, 98, 09, 1B, 24,05,98,04B5 
4309 DATA 1F,03, 08,98, 96, 93, 08,98, 23,24,95,08, 1F, 93,89, 9539 
4499 DATA 99,86,91,0C,99, 25,18, 95,99, 29,91, 00,09, 06, 93, 53B9 
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4969 DATA 99,99,99,12,18,95,99,03,0C,02,09,0D,49,00,99,9212 " 4429 DATA 24,85,08,1F,03, 89,08, 06,93, 9B, 89, 23, 24,05,00,0538 





4439 DATA 1F,93,09,99,96,91,0C,99,25, 18,95,09, 29, 91,90, B4BF 
4449 DATA 99,06,03,0B,98,17,14,05,99,1F,93,09,99,06,99, 9324 
4459 DATA 93,09, 18,09, 00,00, 17,08,09,06,06,09, 93,90, 1B, 9344 
4469 DATA AËE,98,97,96,FE, 94,99, 1B, AE, 9, 97,06, 09,03, 99, QD9E 
4479 DATA 1B,AE, 99,97,06,98,03,98,1E, AE, 09,07, 96, 99,93, DAGF 
4489 DATA 99,26, AE,89,07,96,FE, 94,99, 1E, AE, 09,97,06,99, 1394 
4499 DATA 93,99, 26, AE, 99,97,06,08,93,08,27,00, 89,09, 17, B6A2 
4599 DATA 99,09,09, 96,09, 93,99, 28, AE, 99, 07,06,FE, 04,99, 154D 
4519 DATA 27,4E,99,07,06,98,03,09,28,AE, 68,97, 86, 99,93, GADS 
4529 DATA 99,27,AE, 09,07, 06,09, 93,09, 28, AE, 09,97,96,FE, 1B52 
4539 DATA 94,09, 27, AE, 90,97,06, 99, 93,98, 28, AE, 09, 97,86, BE3C 
4549 DATA 99,83,00,98,16,95,99,1F, 99, 00,99, 06,09,03,09,5226 
4559 DATA 14,18,95,99, 1F,99,98,98,06,FE, 04,08, 16, 18,95, 8DF5 
4569 DATA 09,29,09,09,09,06,99,93,99,22,18,05,99,1F,99,64C6 
4579 DATA 89,09,96,99,03, AE, 086,95, 1F,06,08, 68,96, 60, 93, O5EF 
4589 DATA AE, 98,95, 1F,99, 99,09,06,FE, 94,99, 17,0A,05, 98, 0C5B 
4599 DATA 29,09,05,09,06,98,03,98,17,0C,05,98,1F,00,99,0364 
4699 DATA 09,06,08,93,09,98,18, 85,09, 1F,99,09,99,06,99,02A2 
4619 DATA 93,09, 14,18,05,99,1F,98,98,99,96,FE, 04,90, 16, 9F39 
4629 DATA 18,95,99, 29,09, 99,09, 86,99, 93,00,24,18,05,99,941E 
4639 DATA 1F,99,99,09,066,99,93, AE, 08,95, 1F,09, 09, 00,06,87A3 
4649 DATA 99,83,AE, 99,05, 1F,09,00,98,06,FE, 94,99, 17,16, 1905 
4659 DATA 95,68,29,09,08,08,06,98,93,90,17,18,05, 99, 1F,94D9 
4669 DATA 99,00,09,06,03,9B,99, 1B,24,95,99, 1F,93,09,98, 9452 
4679 DATA 96,03, 9B,99,23,24,95,98,1F,93,90,98,86,81,8C, 841 
4689 DATA 99,25,18,95,09, 29,91, 99,99,96,93,0B,99, 17, 1B,9525 
4698 DATA 95,89, 1F,93, 98, 98,96,93, 08,99, 1B,24,85, 89, 1F,B5FE 
4789 DATA 93,00,09,96,03,6B,99, 23, 24,95, 69, 1F,93,00,99,0495 
4719 DATA 96,01,0C,09,25,18,95,98,28, 91,08, 09,96, 93, 8B, B3DF 
4729 DATA 99,17,14,95,99, 1F,93, 99, 09, 17,F9,8E, 99, 17,98, SEDY 
4739 DATA 99,89, 17,08, 99, AE, 9B,3D,15,91,11,91,8C, 81,15, B9EA 
4749 DATA 91,11,91,90C,91,15,81,11,91,9C,91,15,91,11,91,03FA 
4758 DATA 8C,91,16,91,13,91,8C,91,16,91,13,91,8C, 81,16, 84B6 
4768 DATA 91,13,81,0C,91,16,91,13,91,9C,91,18,91,15,91,9478 


4419 DATA 8B,09,17,1B,95,99,1F,93,68,08,06,03,8B,90,1B,0458 w 4779 DATA 8C,81,18,91,15,91,9C,91,18,91,15,91,8C, 1,18, 0580 


se. 






4788 DATA 61,15,81,8C,91,13,81,19,91,0C,91,13,41,19,91,93C8 
4798 DATA 8C,81,13,91,18,41,0C,91,13,91,18,91,8C,91,11,8417 
4898 DATA 91,9E,81,9A,01,11,91,0E,91,0A,81,11,91,0E,91,034E 
4818 DATA 9A,91,11,91,0E,81,9A,91,18,91,88,06, 18,91, 18, B46D 
4828 DATA 91,89,90, 18,91, 24,81, 49,08, 24,91,24,01,00,98,8475 
4838 DATA 24,91,09,01,09,07,09,97,08,97,09,97,99, 97,09, 5188 
4849 DATA 91,98,97,99,07, 80,07, 86,97,06,07,18,01, AE, 98, OBA7 
4858 DATA A, 1F,91,4E, 99,9B,91,99,07,99,07,09,82,99,97,9458 
4868 DATA 99,97,89,97,09,87,09,81,09,92,09,07,09,07,96,9126 
4878 DATA 91,08,07,08,07,00,02,69,07,88,97,09,87,90,87,8197 
4888 DATA 99,91,49,92,09,97,90,81,09, 81,08, 07,04,07,98, OBFC 
4899 DATA 92,99,07,08,07,98,07,08,97,98, 01,09, 82, 69, 92, BUED 
4988 DATA 69,82,09,91,18, 94,18, 04,99, 82, 18,84, 18,94, 24, 0638 
4919 DATA 84, 24,04,08,01,99,02, 24,04, 24,04,08,91, 18, 4, B4DC 
4928 DATA 18,84,99, 92, 18,94, 18,94, 24,61, 24,04,08,01,09, 6498 
4938 DATA 92, 24, 04,08,91,98,91,18,04,18,04,99, 82, 18, f4, 5498 
4948 DATA 18,4,24, 94,24, 94,98, 61,09, 62,08, 02, 09,92,99,01B8 
4958 DATA 91,18,95,18,95,98,82, 18,95, 18,95, 24,85, 24,85, 970F 
4968 DATA 69,91,99,92, 24,95, 24,85, 21,61, AE, 69, 12, 1F,91,0D58 
4978 DATA 21,91,22,01, AE, 08, 12, 21,91, 22,01, 24,91, AE, BU, 1222 
4988 DATA 19, 24,81, 29,91, 28,81, 29,81, AE, 08, 12, 24,01, 22, GEDS 
4908 DATA 81,1D,91,4E, 98,94, 1B,91,AE, 98,04, LA, 81, AE, 80, 14E6 
5868 DATA 04,18,01,AE,49, 64, 22,81, AE, 69, 12, 21,91, 1F,91,0E3B 
514 DATA 16,81,AE,09,08,16,81,18,01,AE,08,f4, 14,01, AE, 1620 
5929 DATA 08,94,1F,91,AE, 99, 17,81, 18,98, 18,08, 49,92, 18, 088C 
5838 DATA 98, 18,98, 24, 08, 24,98, 08,01,60,02, 24,66, 24,88, BBF 
5849 DATA 99,91,18,98, 18, 88,99, 92, 18, 88, 18,08, 24,01, 24, 07B8 
5859 DATA 98,09,01,08, 02, 24,08,08,91,99,01, 18, 06, 18,88, 8489 
5468 DATA 89,82,18,96, 16,86, 24,86, 24,96, 09,01, 09,02, 08, G40C 
5879 DATA 92,09,92,12,91,AE, 68,04, 14,91, AE, 08, BA, 16,81, BERG 
5988 DATA AE, 89,04, 19,91,69,99,16,91,09,06,14,91,09,98,02FB 
5999 DATA 16,81, AE, 09, 0A,0F,91, AE, 08,98, 01,08, 69, 09, 07, 8927 
5199 DATA 98,97,09,98,89,87,09,92,99,99,06,97,96,07,09,00FE 
5119 DATA 99,09,07,08,01,18,9B,98,91,99,02, LA, BB, 89,81, #2EC 
5129 DATA 98,81,1B,9B,09, 81,99, 82, 1F,9B,09,02,09,01, 16,384 
5138 DATA 9B,09,91,08,92,18,08,09,91,99,91, LA, 98, 86,81, 82DF 
5149 DATA 99,82, 1D,9B,99,82,18,91, 14,81, 18,01, 1D,91,1F,#6C4 
5158 DATA 91,29, 01,22,81,23,81, 24,01, 26,91, 27,91, 29,81, 1888 
5168 DATA 18,91,AE, 98,84,13,81, AE, 09, 9A, 16,01,4E, 09, 8A, 139D 
5179 DATA 19,81, AE, 08, 9A, 18,91, AE, 08,0, 1F,01, AE, 89,84, 138F 
5189 DATA 27,91,25,91,22,91,25,81, 22,81, 29,01, 22,91, 29, DBA7 
5199 DATA 91,1E,81,29,91,1E,91,29,91,90,07,69,09, 90,81, 02E5 
5299 DATA 99,97,69,00,09,97,99,92,09,09,06,07,99,07,99,D0FE 
5218 DATA 99,89,01,08,01,08,08,09,97,60,02,08,0, 80,97, f0C6 
5228 DATA 99,87,00,99,08,91,09,92,09,09,08,07,09,01,98, 6986 
5239 DATA 69,96,07,08,02,08,09,00,07,00,07,08,09, 09,01, BOBA 
5249 DATA 98, 92,09, 92,89, 92, AE, 99,09, AE, 96,08, AE, 09,98, 147C 
5959 DATA AE,88,09,4E, 06,08, AE, 08,08, AE, 8,08, AE, 49,89, 17CA 
5268 DATA AE, 89,99, AE, 49, DA, 81, AE, 99, 2F, 96,08, 09,09,98,0FCF 





DAT2A = BAS 


18 ‘ DATAS du PROG ZA 
28 " Xyphoes Fantasy 


38 ' (c) SILMARILS 1991 

48 ON ERROR GOTO 198 

58 MODE 2:AD=8CAG:NL=118 

69 FOR A=1 TO 547:B-9:F0R C=1 TO 15:READ A$ 

78 POKE AD, VAL("&"+A$) :B=B+ (PEEK(AD)xc) :AD=AD+1 

88 NEXT:READ E$:IF VAL("&"+E$)OB THEN 199 

98 NL=NL+18:NEXT:SAVE"2A",B, &C498, &2988 :CLS : END 

198 CLS:PRINT"DATA"C;"LIGNE"NL;" INCORRECT" : END 

119 DATA 21,19,2F, 11,89, BE, 91, 30, 9,05, ED, BB, C9, 21, 4D, 353C 
128 DATA 2F,11,80,21,81,B4, 28, ED, 43, A3,BE, 81, 19, 7F,F3, 3495 
138 DATA ED, 49, 7E,FE, 76, 28, 1A, 12, 13, 23,96, 7F,F6, 48, AB, 2D12 
148 DATA 69,06,01,09, 00,98, ED, 43, A3, BE, 78,B1,29,E5,FB, 494E 
159 DATA C9, 89, 99, 23, 7E, 23, 4E, 12, 13,00, 29, FEB, 18,DD, 76, 29D8 
168 DATA 69,98, F3,A2, 76,98, 12,51,3C, 79,2, 76,88, 11,86, 2987 
178 DATA 9, B4, 79, 76,49,11,51,6C,9C,F#, A2, 76,98, 18, F2, 35AC 
188 DATA C8,E6, 9, A2, 76,98, 19,F2,98,F3,D1, 76,99, 19,51,33EE 
198 DATA E4,E6, 79, A2,88,09,51, 76,96,9D,51,E4,F3,98, A2, 3941 
289 DATA 69,08, B6, A2, 76,99, 8C,F3,68,F3,E6, A2, 99, 69, F2, 3BB2 
219 DATA A2, 76,88, 8C,B6,D1,64,F3, 96,51, F3, 20, F1, 76, 99, 36E2 
229 DATA 8C,F3,E7,B2, A2,98,F3, 79, C4, 78, A2, 76, 80, 8B, E6, 3B2C 
236 DATA B3, 34, 42,89, B6, CD, 48, 94, A2, 76, 99,98, B2,F1, 77,344 
249 DATA F3,51,B9, C5, CC, C4, A2, 76, 08,98, E6, 71, 37, 82, F3, 41CB 
258 DATA 60,91, 30,59, 76,99, 8C, F3, 79,87, E6,F2,D9, 19, CB, 4627 
269 DATA 8C, A2, 76,89, 8B,E7,98,F1,F3,B6,E2, CD, 62, F3,D1,55FF 
278 DATA 76, 89, 8B,E7,E6, 7F, F3, 7B, A6, CD, 62, CB, 59, 76, 98, 3C2F 
288 DATA 8B,E7, 73,37, BB, 33,78, E7,9B,C4, 48, A2, 76, 98, 89, 31CC 
298 DATA 51,98, 3F,B3, 78,F3, 38, 7B, CF, 34, 6C, A2, 76,98, 99, 312 
389 DATA 51,F3,7F,F3,E6, 71,F3,F3,C4,9F,69, D1, 76, 89, 49, 3E48 
319 DATA F3,E9,F3,51,F3, D9, 8C, 48, CB, C5, 37, CA, A2, 76, 88, 348 
329 DATA 85,51,F3,F3,F3, FC, F9, 82, DO, A6, 24,CB, CA, CO, CF, 57BC 
338 DATA 69, A2, 76,99, 85, E2, CB, 84, C8, FC, F3, 32,68, 4C, 8C, 3938 
349 DATA C8, CP, E2, CA, CA, 2, 76,8,94,51,C8, 48, C4,69, E6, 3EBC 
356 DATA E2, CE, 48, 4C, 4C, 48, D1,51,9B,D1, 76,98,95,E2, 84, 36F9 
369 DATA FC,84,D1,CC,E2,9B, 48, AC, 4C, 8C, Di, 86, B3, DO, 76, 3F89 
378 DATA 89,84,51,C8, 4C, FC, CH, D1,98,E2, C5,C8, AC, CC, 48, 4F06 
389 DATA 42,08, E7,D1, 76,88, 64,86, C9, CC, F8, C9, E6, DB, E2, 55D1 
399 DATA C5, 64, EC, 8C, CS, A2, 99, E7, DB, 76, 86,94, B6, 84, 8, 3B2E 
489 DATA E9,ES, E2,71,98,68,9F,FC, 84, CP, A2, 51,6F, A2, 49, 3DC1 
419 DATA 98, 88,51,78, 84,98, E9,F1,98, 71,98, 4C, C5, 7E, 48, 3C35 
428 DATA D1,98,51,73,76,49,94,51,B8, C4, 39, FC, 79,98, E2, 3FED 
438 DATA 39,6, C9, 37, C8, Di, 08,83, DB, 76,98, 94, B6, 60, 4C, 335B 
449 DATA 24,FC, D, D8, E2, CC, 48, 4,98, 2E,D1, 51,67, A2, 76, 42C6 
458 DATA 98, 84, F2, 60, 4C, 24, D4,E6, 71,C9, 8C,CB,D4, ED, 37, 43CE 
469 DATA C9, E7, DB, 76,96,84,51,D8, 71,40, 8C, D4, E6, 71, C8, 4497 
478 DATA CS, C8,FC,B8,98, 67, CF, 42, 09,49, 92,F3,51,9C, D9, 3CFE 
m 489 DATA 84,C8,CC,F6,F6, CP, C8, Dé, FC, 98,65, CA, F3, 76, 09, 4CE4 
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498 DATA 94,E6,B6,B9,F3,84,C8, 4C,F6,F6, CD, C8,FC,E8, 18,54C7 T 1989 DATA 69,4C,74,D2,E2, 39,E2, 24,48, 9F, AC, C9, A2, 69,B3, 3E4D 


598 DATA 64,C8, A2, 76,99, 84,B6, 79,6C,F3,84,8C,99,B3,FB, 4199 
519 DATA C9,C9,64, 48,16, 39, 48, A2, 76,98, 84,B6,F8, 79,99, 2CD4 
529 DATA E2,9C,C9,B3,6A,42,C8,CC, 48, 4C,64,C8, A2, 76, 99, 36BE 
538 DATA 54,E6,3C, 71,89, E2, 4C,C9,59,62,56,98,8C,C8, C4, 4927 
549 DATA 24,C8, A2, 76,89,84,E6, 78,D9,98,E2,C4,C9,D1,62, 44B7 
558 DATA EB,C4,8C,C9, 84,69, C9, A2, 76,99,84,51,CC, A2, 99, 316€ 
56# DATA E2,4C,59,C9,81,E8,CC,89C,C8, 84,CC, 48, D1, 76,99, 3C8B 
579 DATA 85,F3,88,51,C9,18,D1,F3,D4,C9,9C,CB,D1,E2,98, 4D27 
588 DATA 8C,C8,F3,76,89,86,F3,84,8C, A2,88,E2,C8,C9,D1, 47FD 
599 DATA F3,D1,84,98, 48, C9, A2, 76,95,94,51,D1,84,68, A2,3768 
698 DATA 99,51,F3,F3,A2,E2,D1,E2,8C, C9, 48, A2, 76, 80,94, 355A 
618 DATA 51,C9,C4,59, 76,99, 86, E2, D9,51, CB, 4C, 24, A2, 76, 373E 
629 DATA 99,94,E2,59, 4C,D1, 76,89,96,51,C8, A2,F3,C9,6C,3FF1 
638 DATA D1,76,89,84,E2,C9, AC, A2, 76,99, 96,51,C4, A2, 59, 2CDF 
649 DATA E2,4C,59, 76,89,84, A6,D1, 18, A2, 76,89,96,51,C4,2BFD 
658 DATA A2, 99,51, A6, 69, A2, 99,99, 96,E6, F3,99, A2, 76, 58, 32B4 
668 DATA 96,51,84,A2,99,08,E2, 24, A2, 98,99,51,98,F3,99, 3292 
679 DATA A2, 76,89,96,51,64, A2,99,98,51, 9C, A2,98,98,51, LACG 
688 DATA 84,A2,B2,A2,76,89,86,51,84,A2,99,99,51,C4, A2, 2EB1 
698 DATA 59,99,51, 48, A2,E6, A2, 76,99,97,E2, A2,98,98, 68, 2453 
189 DATA E6,D1,99,99,51,68, A2,E6, A2, 76,98,97,E2, A2, 99, 39F3 
719 DATA 68,89, B2,D1,99,89,51,D9,51,84, A2, 76,98,97,E2,3878 
729 DATA A2,98,69,51,99,D1,99,51,E2,59,51,84, A2, 76,89, 2FE9 
739 DATA 87,E2, A2,99, 89,51, 4C, A2,99,51, A6,D1,51,48, A2, 325E 
748 DATA 76,99,97,E2,D9,99,99,E2,24,A2,99,51,6C,D1,51,328D 
758 DATA CB, A2, 76,99, 87,E2, 59,95,08,E6, 69, A2,08,51, 48,2BA6 
769 DATA A2,51,C4,A2,76,98,87,E2,59, 96,89, A6,C8, A2, 89, 2D94 
778 DATA 51,D1,89,51,99,D1, 76,99,97,51,C4, A2,98,E2,59, 3327 
785 DATA 89,99,51,A2,00,98, A6, 71,76,96,97,51,84, A2, 99, 235C 
798 DATA F3,D1, 76,89, 86,E2, 59, 76, 89,97,51,84,D1,98,51, 2BCD 
899 DATA A2, 76, 89,96,51,D1, 76,98,98,E2, D9, 76, 89, SA, F3, 321B 
819 DATA 76, 89,98, E2, 46, A2, 76,99, 12,E2, CB, A2, 76,98, 12, 2CDE 
828 DATA E2,D1, 76,88,13,51, A2, 76,88, 16,51,F3, 76, 89, 13, 24E3 
838 DATA B6, 3C,F3, 76,89,11,51,6C, 78, 3C, A2, 76,98, 11, BG, 2AB2 
848 DATA CC, 78,F1,76,89,19,51,E4,D1,CC, 79, 76,89, 19,51, 2FC9 
859 DATA EB, 71,E2, A2, 76,99, 19,F2,D9,98, F1, 99,98, 98, A2, 3248 
868 DATA 76,99, 8D,F2,D9,E6, 71,98,99,51, 79, 76,99, 8C,51, 2469 
878 DATA B6,D1,F3,D9,99,89,51,F1, 76,99, 9C,51,68,B2, D9, 3685 
688 DATA A2,88,F3,B6,58, A2, 76,69,9B,51,F3,DB, 71, 99,51, 31CF 
899 DATA B6,E2,9C,F1, 76,49, 8B,51,D9,37, 71,99,51,6C,8E, 2E2E 
988 DATA C9, 79, 76,98, 8,51, 79,B3,FB, A2,F2,69, CE, CB, DO, 4E83 
918 DATA 76,89, 8B,51,98,B3, 7B, 71,B6,C8, 32,24, A2, 76,98, 3BA4 
928 DATA 8B,51,B2,F1, 7B,D9,E4, A6,66,C4,59, 76,99, 8B, 51, 3362 
938 DATA CE, 79,F3,F3, 79,C4,9B,D1,E2, A2, 76,98, A,51, DB, 3F2A 
948 DATA 9D,FB,B7,F3,4C,9B,C8,84, A2, 76,08, 8A,51,9B,B3, 38DC 
958 DATA 7F,33,37,F3,CF,62, 8C, Di, 76,98, 8A,E7,37, 7B,37,322F 
968 DATA F3,B3,37,E7,9F,64,59, 76,88, 9A,F3,B7,FB,F3,98, 4886 
979 DATA F3,F3,E2,C5, 34, C8, A2, 76, 99,98,51,F6,D3, A2, F3, 4776 
988 DATA E6,4A6,8C,C8,C8,9B,6F,D1,76,89,86,F3,F3,F3, F6, 4E28 
998 DATA FC,F3,64,F3, 18, 4C,C9,C4,C5,9A, D1, 76,98,95,51,35D3 
1989 DATA C8,C,4C,D4,F9,B3,38, 84,80, 4C, CS, D1,C5, C9, D9,591B 
1919 DATA 76,99,95,E2,64,C8,98,D1,D9,C5,8C, 84, 8C, 8C, C9, 4B5C 
1929 DATA A2,E7,62, A2, 76, 89,84, 51,C9,5C, EB, 48,E6, D9, C5, 45D7 
1939 DATA 26,D4, 90, 8C, 48, A2,51,66, A2, 76,88,94,E6, 84, DC, 3995 
1849 DATA E8,CS,E6, 71,C9, CA, D4, 4C, 8C, D1, 98,51, CA, A2, 98, 3B86 
1859 DATA 99,99,51,C8,C4,DC,EB,D1,CC,F1,C8,9F, D4, CC, 48,5425 
1969 DATA D1,98,51,CF, A2, 89,98, 89, F2, 68, 4C, 74,D2, D1,98, 3BF8 





1999 DATA 42,98,51,99, B2, 38, E2,98, 74, BC, EG, 71,99, 64, C9, 43EF 
1189 DATA 91,6E,C8, A2,51,67, A2, 69,82, F3, D8, 6C, 46, 98, 5C, 42DC 
1119 DATA E9,E6,F1,C4, 80, CB, ED, 37,48, 2,83, DB, 59, 99, B6, 3D82 
1129 DATA 98,FS,71,A6,98, 48,F9,98,E2, 84, 48, CB, FC, 9B, GA, 4B48 
1139 DATA D1,CF, 2, 99,68, B6, 7,38, D9, A6, CC, 48, F9, 98, E2, 49DD 
1149 DATA CB, C8,D4, FC, 65, 33, CF,DB, 89, 09, 99, E6, F8, 64, A2, 3E46 
1158 DATA E2, 4C,CA, D9, F9, EB, CB, CB, FC, EC, 38, CF, Di, A2, 89, 4EBB 
1168 DATA 99,89,51,64,D9, 89,E2, C4, 84, D9, F9, EB, CA, D4, FC, S9DB 
1178 DATA 84,38,CC, Di, 76,98,05,F3, A2, 08,51, 84, 48, 71,77, 39C1 
1189 DATA E2,C9,98, 8C, 84, 39, 24,1, 76,09, 98,51, 84, 48,1, 38A7 
1199 DATA 37,81,C8, C4, 8C, 84, 98,C8, Di, 76,98, 98,51, CD, CB, 3D6F 
1289 DATA 84,B3,81,E8,64, 48, C9, 98, 48, D1, 76,09,98,51,C8, 348B 
1219 DATA CB, C9,B3,D4,CB, CC, 48,C8, 18, C8, Di, 76,9, 88,51, 3438 
1229 DATA C8,8C,C8, CP,56, C4, BC, 48, CA, 4C, BC, A2, 76,08, 88, 313C 
1239 DATA 51,84,24,F3,E2,E8, 84,48,CB,F3,C4,64, A2, 76,88, 444F 
1249 DATA 97,51,E2, 84,69, F3,F3, C8, CA, CB, F3, F3, E2, 4C, Di, 598C 
1259 DATA 76,09,97,E2, 2, C4, 71,62, CB,F3,F3,F3, E2, 59,51, 5266 
1269 DATA C4,59,76, 86,97, E2,E2, 4C, Di, C8, F3, 89,09, 09, E2, 375D 
1278 DATA D9,51,64, 71,76,98,06,51,84,E2,18,F3,F3, 76,09, 3674 
1288 DATA 94,E2,D9, 51, C4, D9, 76, 99, 96,51, C4, E2, 98, A2, 76, 3F89 
1299 DATA 96,94,51, C9, A2, 98, E2,C8, A2, 76,60,85,51,59,C9, 3258 
1388 DATA D9, 76,99,95,51, 84, A2, 89, E2, 8C, A2, 76,99,05,51, 24E1 
1319 DATA D9,C8,71,76,98,95,51,84, 2,98, E2, 18, A2, 76,80, 2B2F 
1329 DATA 95,62, D1, 84,71, 76,88,85,51, C4, 42, 09,51, CA, A2, 3537 
1338 DATA 76,08,05,E2, D1, 84, A2, 76,08,95,51,C4, A2, 89, 51, 2D2E 
1349 DATA 84,D1,76,99,95, A6,D9, C4, A2, 76, 08,85, 51,D1, 98, 2DA9 
1358 DATA 99,51,84,71,76,98,04,51,99,E2, 4C, A2, 76, 89,85, 27ED 
1369 DATA E2, D1,98, 49,9, E2, 71, 76,99, 94, F3, CC, E2, D9, 76, 4192 
1379 DATA 99,06, E2,59, 96, 09,08,51,59, 76,8, 84, E2, 84, E2, 2E7B 
1389 DATA D9, 76,99, 46,E2, D9, 89, 96,09, 51,98, A2, 09,09, 09, 1C4F 
1398 DATA E2,D1,84, A2, 76,98, 96,E2, D9, 76,99, 84, E6, A2, 89, 3117 
1489 DATA 98,89,F3,F3,C4, A2, 76, 89,06, E2, DO, 76, 99, 04, A6, 3356 
1419 DATA A2,09,98,09,F3,D1,59,76,68,96,51,C4, A2, 76, 80, 2BFB 
1429 DATA 94, E2,59, 89,08, 86, E2, 84, D9, 76,08, 96, 51,84, A2, 2E79 
1439 DATA 76,98,94,51,71,98,08,98,E2, 4C, A2, 76,9, 06,51, 2976 
1449 DATA C,D9, 76, 89,04,51,D9, 69,89, 69, A6, D9, 76, 09,98, 2381 
1459 DATA E2,59,76,49,94,51, 18,2, 08,98, F3, A2, 76,99, BB, 2327 
1469 DATA E2, AC, A2, 9,09, 98,51, C4, A2, 76,98, OC, E2, 84, A2, 32C5 
1479 DATA 89,09,08,51,84, 71, 76,98,0C,F3,F3, 76,80, 85,F3, 321E 
1489 DATA F3, 76,98, 80,51, F3, 76, 88, 13, B6, 3C, F3, 76,0, 11, 294C 
1499 DATA 51,6C, 78, 3C, A2, 76,68, 11,86, CC, 78,F1, 76,90, 19, 2FB7 
1589 DATA 51,E4,D1, CC, 79, 76,99, 18,51, E6, 71, E2, 42, 76,89, 3717 
1514 DATA 19,F2,D9,98, F1, 98, 98,98, A2, 76,08, 90, F2, DO, E6, 3C28 
1529 DATA 71,98,89,51, 79, 76,98, 8C,51,B6,D1, F3, D9, 99,99, 386F 
1538 DATA 51,F1,76,99,6C, 51,68, B2, D9, A2, 98, F3, BG, 58, A2, 3Ff4 
1549 DATA 76,89,98, 51,F3,DB, 71,98,51, 6, E2, 9C, F1, 76,88, 3C7F 
1559 DATA 9B,51,D9, 37, 71,99,51,60, BE, C8, 79, 76, 89, 8B, 51, 2872 
1569 DATA 79,B3,FB, A2,F2, 69, CE, CB, D9, 76, 98, 88, 51,96, B3, 3DD6 
1574 DATA 78, 71,86, C8, 32, 24, A2, 76,68, 98,51, B2, F1, 78, D9, 3C7E 
1589 DATA E4, A6,66, C4,59, 76,98, 98, 51, CE, 78,F3,F3, 79, C4, 44D5 
1599 DATA 9B, D1,E2, 42, 76,98, 94,51, DB, QD, FB,B7,F3, 4C,9B, 474D 
1689 DATA CB, 84, A2, 76,98, 8A,51,9B, B3, 7F, 33, 37,F3,CF, 62, 3A3E 
1619 DATA 80, D1, 76,49, 9A, E7, 37, 78, 37,F3,B3,37, E7,9F,64, 3E88 
1629 DATA 59, 76,98, 8A,F3,B7,FB, F3,98, F3, F3, E2, C5, 3A, CB, 5537 
1639 DATA A2, 76,96,98,51,F6,D3, A2, F3,E6, A6, 8C, CO, CA,9B, 4AGA 
1649 DATA 6F,D1,76,69,26,F3,F3,F3,F6, FC, F3,64,F3, 18, 4C, 4B3A 
1654 DATA CS, C9,C5, 9A,D1, 76,98,95,51,C8, CB, 4C, Dé, FO, B3, 4798 


1978 DATA E2,38, CS, 7E,E8,48,D1,98,B7,DB,08,98,89,51,F8,32F3 m 1668 DATA 38,84,8C, 4C,C8,D1,C5, CS, DO, 76,88, 84,51,E2, 84, 3CB7 
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1679 DATA C9,98,D1,D9,C5,8C, 84,80, 8C, CB, A2,E7, 62, A2, 76, 49DA 
1689 DATA 99,94,E6,C9,5C,E6,48,E6, D9, C5, 26,D4, 9C, 8C, 48, 3D7F 
1699 DATA 42,51,66, A2, 98,98, 98,51,B4,84,DC,EB, C8, EG, 71, 4449 
1799 DATA C8,CA,D4,4C,80,D1,98, 51, CA, A2, 99, 69,99,F2,B9, 3524 
1719 DATA C4,DC,ES,D1,CC,F1,C8,9F,D4,CC, 48,D1,88,51,CF, 4919 
1728 DATA A2,89,A2,51,34, 71,40, 74, D2, D1,99, E2,39,C5, 7E, 4216 
1738 DATA E6,48,D1,99,B7,DB,8,51,71,E6,B4,D9, 4C, 74,D2, 4487 
1749 DATA E2,38,E2, 24,48,9F, AC, CO, A2, 99, B3, A2,99,51,6C, 349B 
1758 DATA 79,B9,E2,98, 74,BC,E6, 71,98,64,C8,91,6E, C9, A2, 48EC 
1769 DATA 51,67,A2,99,51,38,B4,64, A6,98,5C,E9,E6,F1,C4, 4CF4 
1779 DATA 8C,C9, ED, 37, 48, A2, B3,DB, 98, 98,51,D8, BD, DO, AG, 42C3 
1789 DATA 98,48,F9,98,E2,84,48,C8,FC,9B,6A,D1,CF, A2, 98, 4698 
1799 DATA 99,99,B2,CC, A2, A6, CC, 48,F9,9B,E2,C8,C8,D4,FC, 59AB 
1898 DATA 65,33,CF,DB, 76,89,94,51,F3,99,E2,4C,C4,D9,F9, 45D8 
1819 DATA EB,C9,C£,FC,EC, 38,CF,D1, A2, 76,88,07,E2,C4,84, 4315 
1829 DATA D9,F9,E8,C8,D4,FC,84,38,CC, D1, 76,09,98,51, 84, 38A5 
1839 DATA 48,71,77,E2,C9,98, 80, 84,38, 24,D1, 76,89, 98,51, 2BF5 
1849 DATA 84,48,D1,37,81,C9,C4, 8C, 84,98, C8,F3, 76,99,98, 3A2A 
1859 DATA 51,C8,C8,84,B3,61,E6,64,48,C9,98, 48,F3, 76,98, 3CF1 
1869 DATA 98,51,E2,C8,48,B3,D4,C9,CC, 48, C8, 18,C9,F3, 76, 4926 
1879 DATA 99,98,51,E2,C8,48,CB,56,C4,8C, 48,C8, 18, D9,D1, 43B4 
1889 DATA 76,98,98,51,E2,C9,84, 48,E8, 84, 48,C9,C9,99, 71,423F 
1899 DATA CB, A2, 76,99,07,E2,D1,C8,C4,4C,C8,C8,C9,F3,C9,51FA 
1989 DATA 99,D9,C8, A2,76,89,97,E2,59,C9,C4,D9,F3,F3,F3,55C8 
1918 DATA 99,E2,08,F3, 84, A2, 76,98,07,E2,59,C8, 4C, 71,76, 37B4 
1928 DATA 98,84,E2, 4C,F3,C4, A2, 76,89,06,51,C8,8C,E2, 4C, 39F6 
1938 DATA 71,76,09,94,E2,D9,51,98, A2, 76,98,96,51, 84,71, 2E2E 
1949 DATA E2,98,71,76,99,94,E2, 71,99, B2, A2,76,99,06,51,2788 
1958 DATA C9,71,51,C4, A2,90,98,F3,F3,C8,59,08, E2, A2, 76, 3F85 
1969 DATA 99,97,E2, 71,51,99, A2, 89,89,E2,D1,C8,D9,51,E2, 455B 
1979 DATA A2, 76,99,97,E2,59,51,98, À2,98, 98, A6, D1, 84,71, 34CF 
1988 DATA E2,C4, A2,76,69,97,51,D1,51, 99, A2, 09,99,E6,59, 354B 
1998 DATA 84,71,C8, 18, A2, 76,98,97,51,C4,E2,4C, A2, 99,89, 2A2D 
2899 DATA 51,71,C4,E2,4C, 71,76, 89,99, AG, E2, 4C, A2, 99,98, 2AB8 
2914 DATA 89,F3,99,B2, D9, A2, 76,98, 89,E2, 71,84, 71, 89, 99, 2B8E 


2829 DATA 99,51,18,F3,A2, 76,89, 9A,51,59, E2, D9,99,09,99,2529 | 


2838 DATA E2,59, 76,99,0C,51,98,F3,C4, A2,98,98, E2,D9, 76, 3C1A 
2849 DATA 99,8D,E6, A2, A6, 2,99, 99, E2, 71, 76,99, 9D,E6, A2, 3487 
2959 DATA E2,D9,99,51,84,A2,76,98,8C,51,84,A2,51, 18, A2, 2D37 
2969 DATA 51,99, A2,76,89,8C,51,84,A2,51,C4,A2,51,C4, A2, 3D91 
2879 DATA 76,09,0C,51,CB,A2,51,C4, A2,E2,59, 76,89, 8E, E2, 37A4 
2989 DATA A2,51,F3,99,E2, D9, 76, 89, 9E, 51, A2, 09, 00,09, E2, 28B3 
2898 DATA 96, A2, 76,99, 12,51,84,A2,76,98,13,F3,76, 90,13, 25A8 
2198 DATA F3,42,76,99,12,51,3C, 79, A2, 76,98,11,B6,9C,B4, 3281 
2119 DATA 79,76,99,11,51,6C,9C,F8, A2, 76,98,18,F2,C8,E6, 4140 
2129 DATA 9C,A2,76,99,19,F2,99,F3,D1,76,88,19,51,E4,E6, 3FBA 
2138 DATA 79,A2,09,99,51,76,98,9D,51,E4,F3,98, A2, 99, 99, 201 
2149 DATA B6, A2, 76,89,9C,F3,68,F3,E6, A2, 09,99, F2, A2, 76,3E34 
2159 DATA 89,4C,B6,D1,64,F3,98,51,F3,2C,F1,76,88,8C,F3, 3887 
2169 DATA E7,B2, A2, 09, F3, 79, C4, 76, A2, 76,90, 0B, E6, B3, 34, 3892 
21749 DATA 42,08, B6,CD, 48,94, A2, 76,98, 8B,B2,F1,77,F3,51,3E6A 
2189 DATA B9,C5,CC, C4, A2, 76,99, 8B,E6, 71,37,B2,F3,6C,91,3FE7 
2199 DATA 39,59, 76,99,9C,F3, 78,B7,E6,F2,D9,19,CB, 8C, A2, 4851 
2289 DATA 76,89,9B,E7,98,F1,F3, B6,E2, CD, 62,F3,D1, 76,98, 49C5 
2218 DATA 8B,E7,E6, 7F,F3, 78, A6,CD,62,C9,59, 76,89, 9B,E7, 3B8A 
2229 DATA 73,37,BB, 33, 7B,E7,9B, C4, 48, A2, 76,89, 99,51,9B, 31F2 
2238 DATA 3F,B3, 7B,F3, 33, 7B,CF, 3A, 80, A2, 76,68, 99, 51,F3, 35AE 
2288 DATA 7F,F3,E6,71,F3,F3,C9,9F,68, D1, 76,99, 99,F3,E9, 4786 





2268 DATA F3,F3,F3,FC,F9,B2,D9, A6, 24, C8, C9, C9, CF, 69, A2,515F 
2278 DATA 76,09,95,E2,C8,84,C8,FC,F3, 32,68, 4C, 8C,C8,C9, 4138 
2289 DATA E2,CA,C4, A2, 76, 89,94, F3,C9, 48,C4,69,E6, E2, CE, 4BE4 
2299 DATA 48,40, 4C,48,D1,51,9B,D1, 76,98,94,51,C8, 84, FC, 3BEG 
2399 DATA 84,D1,CC,E2,9B, 48, AC, 4C, 8C, Di, 98, B3, D9, 76,98, 3659 
2319 DATA 94,F2,68, 4C,FC,C9,D1,98,E2,C5,C8, AC, CC, 48, A2, 4FF1 
2329 DATA 98,E7,D1,99,99,99,51,F9,69,CC,F8,C9,E6, D8,E2,51B4 
2339 DATA C5,6A,EC,8C, CS, A2,98,E7,DB, 99,51, 98, B2, 38, A6, 3653 
2349 DATA 98,F9,E8,E2, 71,09,69,9F,FC, 84,C9, A2,51,6F,A2, 4748 
2359 DATA 89,B2,F3,D8,6C, A6,98,E9,F1,98,71,98, BC, C5, 7E, 4585 
2369 DATA 48,D1,99,51,73, 89,99, B6,98, FD, 71,C4, 38, FC, 79, 3F2F 
2379 DATA 96,E2,39,C8,C8,37,C8,D1,98,B3, DB, 08, 89, B6, 79, 3891 
2389 DATA 38,D9,4C,24,FC,D3,D8, E2, CC, 48, D4,9B,2E,D{,51,4713 
2399 DATA 67,A2,99,99,E6,F0,64,F3,4C,24,D4,E6, 71, C0, 8C, 3F06 
2489 DATA C8,D4,ED, 37,C9,E7, DB, 89,89,98,51,64,D9,51, 4C, 3144 
2419 DATA 8C,D4,E6,71,C8,C8,CB,FC,B8,9B,67,CF, A2, 76,98, 455F 
2428 DATA 94,F3,A2,51,84,C8,CC,F6,F6,C9, C9, D4,FC, 98,65, 56F9 
2439 DATA DB,F3, 76,99,07,51,C8,C8,4C,F6,F6,C8,C9, FC,EB, 56A6 
2449 DATA 18,64,D9, A2, 76, 99,98, E2, 8C,99,B3,FB,C9,C2,64, 4326 
2459 DATA 48,18, 39,59, A2, 76,98,98,E2, 0C,C8,B3, 64, 42, C9, 35E6 
2469 DATA CC,48,4C,64,F3, A2, 76, 9,98, E2,C4, C9, 59,62, 56, 3998 
2479 DATA 99,8C,C9,C4,24,E2, A2, 76,98, 98,E2,C4, C9, D1, 62, 4338 
2489 DATA E8,C4,8C,C9,84,69,F3, A2, 76, 99, 98,E2,C4,48, C8, 3FD7 
2498 DATA B1,E8,CC,9C, C8, 84, 71,C8, A2, 76,98, 08, F2, 18, 48, 3984 
2589 DATA F3,D4,C9,8C,C9, C9, aC, 71, 4C,D1, 76,99,97,51,84,2F54 
2519 DATA 18,C9,F3,E2,C8,C9,D1,C8,4C, 71,4C,D1, 76,89, 87, 367D 
252 DATA 51,84,98,D1,C9, 76,F3,94,C9, 4C, 71,64, 59, 76, 98, 336A 
2539 DATA 97,51,C4,C8,E2, 84, A2,08,08,51,84, CC, D9, 84, D9, 435F 
2549 DATA 76,99,97,E2,C4, 71,E2, C4, 42,09, 08,51,84,CC, A2, 3BB3 
2558 DATA 46,71, 76,99,97,E2, 18, A2,E2, 4C, A2, 08,80, 89, AG, 29AB 
2569 DATA 18,A2,E2,71,76,99,97,E2,99, A2,51,D9, 76,99,94, 2EOA 
2579 DATA 46,98, A2,51,D1, 76,98,97,51,98,A2,51, 71, 76,88, 2B7D 
2588 DATA 94,A6,98,A2,51,D1,76,89,87,51,64, 2,51, 71, 76,3137 
2599 DATA 99,94, E2, 4C, A2, E2, D9, 76,88, 98,E2, A2, 51, 71,76, 38C6 
2689 DATA 99,64,E2, 4C, A2, A6, 71, 76,89, 96, E2, D9,51,D9, 99, 35E8 
2619 DATA 99,99,51,C9,D9,F3,C8, A2, 76, 98,08,51,59, E2, D9, 3E14 
2629 DATA 99,99,99,51,84,71,F3,C4, A2, 76,89,98,51,99,E2, 372C 
2639 DATA 18,A2,99,99,51,C4,71,C8, 18, A2, 76,98, 89, AG, F3, 34A4 
2649 DATA C4,A2,08,09,E2, 18,F3, 84, 71, 76,09, DA, E2, 71,E2, 39BA 
2659 DATA D9,99,99,E2,D9,E2, 4C, A2, 76,98, 8A,51,D9,51,59, 3218 
2669 DATA 98,51,84,71,0C, 71,76,99,9B,51,D9,51,C4, 2,51, 3249 
2679 DATA C4,E2, C4, A2, 76,98, 0B,E2,59, 98, A6, 71, E2, 18, E2, 3A9E 
2688 DATA 59,76,09,8C,E2, 59,99, E2, D9, E2, D9, 84, A2, 76, 99, 3DAB 
2698 DATA 8C,E2,D1,99,E2,D9,C8,71,D1, 76,88, 9D,51,D1,89, 32A7 
2780 DATA F3,F3,84,F3, A2, 76,08, 8E,F3,89,09,51, 18, A2, 76,2BE4 
2719 DATA 99,12,51,D9, 76,99, 13,51, A2, 76,98, 15, F3, A2, 76, 313D 
2729 DATA 99,12,51,3C, 79, A2, 76, 99, 11,B6, QC, B4, 79, 76,98, 2EDC 
2739 DATA 11,51,6C,9C,FD, A2, 76,98, 18,F2,C8,E6, QC, A2, 76, 4533 
2749 DATA 99,19,F2,99,F3, Di, 76,99, 19,51,E4,E6, 79, A2, 99, 38EF 
2758 DATA 99,51,76,98,0D,51,E4,F3,08, A2,99, 98, B6, A2, 76, 36AF 
2768 DATA 99,0C,F3,68,F3,E6, A2, 6,99, F2, A2, 76,99, OC, B6, 3466 
277 DATA D1,64,F3,99,51,F3,2C,F1,76,98,0C,F3,E7, B2, A2, 4378 
2789 DATA 99,F3,79,C4,78, A2, 76, 89, 8B,E6, B3, 3A, A2, 00, B6, 366B 
2798 DATA CD, 48,94, A2, 76,98, 9B,B2,F1,77,F3,51,B9,C5,CC, 48D2 
2889 DATA C4, A2, 76,99, 8B,E6, 71,37,B2,F3,6C,91, 39,59, 76,373C 
2819 DATA 99,8C,F3, 78,B7,E6,F2,D9, 19, C8, 8C, A2, 76, 89, 8B, 37FE 
2825 DATA E7,98,F1,F3,B6,E2,CD, 62, F3, D, 76, 69, 9B,E7,E6, 4AAD 
2839 DATA 7F,F3,7B, 46,CD,62,C8,59,76,98,0B,E7, 73, 37,BB, 3884 


2259 DATA F3,51,F3,D9,9C, 48,C8,C5,37,CA,A2,76,89,95,51,397C m 2649 DATA 33,7B,E7,9B,C4, 48, A2, 76,98, 99,51, 9B, 3F,B3, 7B, 3337 
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2859 DATA F3,33, 7B,CF, 3A,8C, A2, 76,08, 89,51,F3,7F,F3,E6, 42FE 
2869 DATA 71,F3,F3,C8,9F,69,D1, 76,99, 9,F3,E9,F3,51,F3, 4BAB 
2879 DATA D9,9C, 48,C8,C5,37, CA, A2, 76,98,05,51,F3,F3,F3, 4489 
288$ DATA FC,F9,B2,D9, A6, 24,C8,C8,C9,CF,69, A2, 76,98,95, 38CD 
2899 DATA E2,C9,84,C8,FC,F3,32,68,4C,9C,CB,C8, E2, CA, C4, 4CCB 
2989 DATA A2,76,09,84,F3,C9,48,C4,69,E6, E2, CE, 48, 4C, 4C, 3EF3 
2914 DATA 46,D1,51,9B,D1,76,98,94,51,C8,84,FC,84,D1,CC, 467D 
2928 DATA E2,9B,48, AC,4C,8C,D1, 89,B3, D9, 76,09, 94,F2,68, 347A 
2939 DATA 4C,FC,Cÿ,D1,98,E2,C5,C8, AC, CC, 48, A2, 89, E7,D1, 4Dÿ4 
2949 DATA 99,08,89,51,F9,69,CC,F8,C9,E6, D8,E2,C5,6A,EC, 56C5 
295ÿ DATA 8C,C9, A2,99,E7,DB, 98,51, 98, B2,38, A6,98, E9,E8, 42D9 
2969 DATA E2,71,98,69,9F,FC,84, C9, A2,51,6F, A2,99,B2,F3, 44C5 
2974 DATA D8,6C, A6,98,E9,F1,98, 71,98, 8C,C5,7E, 48,D1,89, 3AAA 
2989 DATA 51,73,98,09,B6,98,F8, 71,C4,39,FC, 79,98,E2, 38, 4295 
2999 DATA C6,C9,37,C8,D1,99,B3,DB, 98, 99, B6, 78, 38, D9, 4C, 3618 
3909 DATA 24,FC,D3,D8,E2,CC, 48, D4,9B,2E,D1,51,67, A2,98, 3BDC 
3919 DATA 89,E6,F9,64,F3,4C,24,D4,E6, 71,C8,9C, C8, D4,ED, 4CDA 
3928 DATA 37,CB,E7,DB,09,89,89,51,64,D9,51,4C,8C,D4,E6, 3097 
3939 DATA 71,C9,C8,C9,FC,B8,9B,67,CF, A2, 76,98,84,F3, A2, 418B 
3949 DATA 51,84,C8,CC,F6,F6,C9,C9,D4,FC,98,65,CA,F3, 76,57B9 
3954 DATA 99,97,51,C9,C8,4C,F6,F6,C8,C8,FC,EB, 18,64,C8,4E77 
3269 DATA A2,76,699,08,E2,84,99,B3,FB, C9, C9,64, 48, 18,38, 37C3 
3979 DATA 46, A2, 76,08,98,E2,84,C8,B3,6A,42,C8, CC, 48, 4C, 3Bÿ3 
3989 DATA 64,C9, A2, 76,89, 898,E2,C4,C9,59,62,56,98,8C,C, 3ED$ 
3998 DATA C4,24, C9, A2, 76,98,98,F3,C4,C8,D1,62,E8, C4, BC, 4A9D 
3199 DATA C9,84,69,C9, A2, 76,09, B8,F3,C4,48,C9,81,E8,CC, 4792 
3119 DATA 8C,C9,84,CC, 48,D1, 76,98,98,F3,99,48,F3, D4,C8, 4655 
3128 DATA 9C,C8,D1,E2,98, 8C,64,F3, 76,99, 96,51,D1,C9,59, 3AA3 
3139 DATA 51,E2,C#,C9,D1,A2,F3,64,98,9C,64, A2, 76,99, 95, 31FB 
3149 DATA 51,84,E2, D9,99,51,F3,F3,A2,99,E2,F3, 84,C9, 18, 44EE 
3158 DATA A2, 76,99,95,51,C4,E2,D9, 76, 98,96,E2,99,F3,C9, 439F 
3169 DATA 84,D9,76,99,95,51,D1, A6, 71, 76,99,06,51,4C, A2, 2B1E 
3178 DATA F3, A6, D9, 76,99,95,51,59,C4, 71,76,98, 86,51, 84, 2897 
3188 DATA 71,89,E2,59,76,89,85,51,D1,84,CC, A2, 76,09,95, 2C9A 
3198 DATA 51,C9,D9,99,51,C5, A2, 76,98,94,51,59,C8, 4C, A2, 31C4 
3288 DATA 09,60,00,F3,09,89,E2, 4C, A2,51,64, A2, 76,09,44, 28B4 
3219 DATA 51,C4,E2,64,D9,98,98,51,C8, A2,98,E2, 99, A2, 51, 39EB 
3228 DATA 84,A2,76,89,94,51,99,F3,C9, 16, A2,99,51, 48,D1,339E 
3239 DATA F3,C9, 4C, A2,80,E6, A2, 76,98,95,E6, A2, F2,C9,59, 493E 
3248 DATA 99,51,64,C9,C9,84,D9, 99,89,E6, D1, 76,99,95, A6, 3314 
3259 DATA D9,51,E2,C4, A2,99,F3,8C, 84,98, 71,89, 89, B2,D1, 3ACA 
3269 DATA 76,09,95,E2,71,99,51,C9,D9, 89, 99,E6,69,F3, A2, 3C8A 
3278 DATA 99,51,99,D1, 76,99,05,E2, 71,99, 08,E2, 64, A2, 99, 2B9B 
3289 DATA 51,F3,99,09,09,51,4C, A2, 76,09,95,51,D1,99,98, 1E97 
3298 DATA 51,84, D9, 76,96, 96,E2,24, A2, 76,08,95, 51,99, A2, 2D33 
3399 DATA 98,89,E2, 18, A2, 76,99, 05,E6, 69, A2, 76,99,05,51,2675 
3319 DATA C4,A2,99,99,51,C8,71,76,88,95, AG, CB, A2, 76,89, 2E46 
3329 DATA 96,46, A2, 99,09, 99,E2,59, 76, 99,05, E2,59, 76,99, 261C 
3339 DATA 97,E2, 71,09,90,90,E2,D1,76,99,95,F3,D1, 76,88, 30A6 
3348 DATA #7,E2,D9, 99,99, 99,51, A2, 76,89,95,51, A2, 76,98,2274 
3359 DATA 97,E2, 18, A2, 76, 98, 12,E2, 18, A2, 76,88, 12,E2,C4, 3377 
3368 DATA A2,76,98,12,51,F3, A2, 76,09, 16,51,F3, 76,09, 15, 2843 
3378 DATA B6,3C,F3, 76,98, 13,51,6C, 78, 3C, A2, 76, 89, 13,6, 2AAA 
3388 DATA CC, 78,F1,76,99,12,51,E4,D1,CC, 79, 76,99,12,51,2FF1 
3399 DATA ED, 71,E2, A2, 76,98, 12,F2,D9,98,F1,99, 69, 99, A2, 32B6 
3489 DATA 76,99,9F,F2,D9,E6, 71,99,99,51, 79,76,99,9E,51,248B 
3419 DATA B6,D1,F3,D9, 99, 98,51,F1,76,98,9E,51,68, B2, DO, 369B 
3429 DATA A2,59,F3,B6,58, A2, 76,99, 8D,51,F3,DB,71,99,51,31E1 





| 








3449 DATA C8, 79,76, 88,00, 51, 79,B3,FB, A2, F2,68, CE, C8, DO, 4EQD 
3459 DATA 76,09, 8D,51,98,B3, 7B, 71,B6,C8,32, 24, A2, 76,89, 38AA 
3469 DATA 9D,51,B2,F1,7B, D9,E4, 6,66, C4, 59, 76,99, 0D, 51, 3388 
3479 DATA CE, 79,F3,F3, 79,C4,98B,D1,E2, A2, 76,08, 4C,51, DB, 3F44 
3489 DATA 9D,FB,B7,F3,4C,9B,C8, 84, A2, 76,99, 0C,51,9B,B3, 38F4 
3498 DATA 7F,33,37,F3,CF,62,8C,D1, 76,98,0C,E7, 37, 7B, 37, 3245 
3599 DATA F3,B3,37,E7,9F,64,59, 76,99, 9C,F3,B7,FB,F3,98, 4894 
3518 DATA F3,F3,E2,C5,3A, CD, A2, 76,98, 8A,51,F6,D3, A2,F3, 478A 
3528 DATA E6,A6,8C,C8,C9,9B,6F,D1, 76, 99,98,F3,F3,F3,F6,4E36 
3539 DATA FC,F3,64,F3,18, 4C,C8,C8,C5,9A,D1, 76,89, 97,51, 35EF 
3549 DATA C8,C8,4C,D4,F9,B3,39, 84,6C, 4C,C9,D1,C5,C9,D9,591B 
3559 DATA 76,99,96,51,E2,84,CB,98,D1, D9,C5, 8C, 84, 8C, 8C, 48BB 
3569 DATA C9,A2,E7,62, A2, 76,98, 86,E6,C9,5C,EB, 48,E6, D9, 47BC 


| 3579 DATA C5,26,D4,9C,8C, 48, A2,51,66, A2, 76,98,85,5:,8B4,2D56 


3589 DATA 64,DC,E8,C8,E6, 71,C8, CA, D4, 4C, 8C,D1,99,51,CA, 4528 
3598 DATA A2, 76,08,95,F2,B8,C4,DC,EB,D1,CC,F1,C9,9F,D4,59B8 


| 3699 DATA CC, 48,D1,99,51,CF, A2, 99,99, 0, A2,51,34,71,4C, 26B4 


3618 DATA 74,D2,D1,98,E2,38,C5,7E,E8, 48,D1, 99,87, DB, 99, 3EE9 
3629 DATA 98,88,51,71,E6, B4,D9, 4C, 74, D2, E2, 39, E2, 24, 48, 3DA4 
3639 DATA 9F,AC, C9, A2, 98, B3, A2, 89,08, 99,51,6C, 79, B9, E2, 3478 
3649 DATA 98,74,BC,E6, 71,99,64,C9,91,6E, C9, A2,51,67,A2,4217 
3659 DATA 99,99,99,51,38,B4,64,E2,18,5C,E9,E6,F1,C4, BC, 48C4 
3668 DATA C8,ED,37, 48, A2,B3, DB, 76,99, 84,51, D8, B9,D9, E2, 4537 
3679 DATA 18,48,F9,98,E2, 84, 48,C8,FC,9B,6A,D1,CF, A2, 76, 4CFA 
3689 DATA 99,95,B2,CC, A2, E2, 4C, 48,F9,98,E2, C9, C4, D4, FC, 579D 
3699 DATA 65,33, CF, DB, 76,98,06,51,F3,99,F3,84,C4, D9, F9, 4939 
3799 DATA E8,C8,C9,FC,EC, 39, CF, D1, A2, 76,99,09,F3,64,84, 4DBA 
3719 DATA D9,F9,E8,C9,D4,FC,84,38,CC, D1, 76,98, BA, 51,C9, 3C43 
3729 DATA 48,71,77,E2,C9,99,8C, 84,38, 24, D1, 76,49, 0A,51,2C11 
3739 DATA E2,CS,D1,37,81,C8,C4,6C,84,98,C8, D, 76, 99, PA, 39FE 
3749 DATA 51,E2,48, 9C,B3, 81,E8, 64, 48, CD, 98, 48, D1, 76,99, 381B 
3759 DATA 9A,51,E2,C8,48,B3,D4,C8,CC, 48,C8, 18,C8, D1, 76, 472C 
3769 DATA 98,8A,51,D1,C9, 8C,48,56, C4, 8C, 48, CD, 4C, BC, CB, 3033 
3779 DATA A2, 76,09,99,E2,D1,C8,84,C8,E8,84, 48,C4,F3,C4,598C 
3789 DATA 64,18,D9,F3,76,99,98,E2,D1,C9,84,D9, C9, CO, C8, 4EB2 
3798 DATA F3,99,E2, 40,24, 18,98, A2, 76,09,97,E2,CQ,E2, C4, 3FEB 
3898 DATA D9,F3,F3,F3,09,99,51,E2, C9, 0C, 4C, 71, 76, 99,97, 28DA 
3819 DATA E2,CS,E2, 4C, 71, 76,98,96,51,E2,C8,84, 98, A2, 76, 3CFC 
3828 DATA 99,06,E2, 48,E2, 18,71, 76,89,96,51,D1,F3, CD, 18,3555 
3839 DATA A2, 76,99,96,E2, 48,E2, 4C, 71, 76,08,97, E2,D9, E2, 3DCD 
3848 DATA 4C,A2,76,99,96, E2,D9,51, 4C, A2, 76, 69,07,E2,59, 38D3 


| 3859 DATA 51,84, A2, 76,99,96,E2,59,51,C4, A2, 76,89,87,51,2A51 


3868 DATA C4,F3,D1,76,99,97,E2,D9,51,C4, A2, 76,99,97,51, 3935 
3874 DATA 84,E2,59, 76,99, 97,A6, 71,51, 84, A2, 76, 8, 98, E2, 2F94 
3889 DATA E2,D9,76,99,07,E6,71,51,64, A2, 76, 09,98, E2, A6, 3544 
3899 DATA A2,76,09,97,B2, A2,51,C8, A2, 76,58,98,51, 84, A2, 39AB 
3998 DATA 76,49,06,51,99, A2,89, A6, A2, 76,09, 98, E2,D1,59, 3465 
3919 DATA 76,88,96,51,C4, A2, 98, E2,D9, 76,88, 98, E2, DO, C4, 3FED 
3929 DATA A2,76,09,95,51,D1,69, 99,2, 59, 76,99,07,51,84, 2529 
3939 DATA 71,84, A2, 76,98,95,51,59,58,98,51,84, A2, 76,89, 22AD 
3949 DATA 96,51,C4, A2,E2, D9, 76, 99,85,51,D9, 89, 49,51,98, 2BBE 
3959 DATA A2, 76,08,96,E2, 18, A2,E2, 18, A2,76,98,84,51, 71, 299) 
3969 DATA 99,88,68,E6, A2, 76,99, 86,E2,D9, 99,51, C4, A2, 76, 37A8 
3979 DATA 99,84,51,D9, 99,99, 98,E2, A2, 76,8, 96,E2, 71,89, 27AD 
3989 DATA 51,84,71,76,99,94,51,99, A2, 89,99, E2, D9, 76,99, 2D16 


| 3999 DATA 96, A6, D9,99,08,E2, 4C, A2,08,08,08,51,98, A2,89, 2445 


4999 DATA 99,51,16, A2, 76,99,85, A6, A2, 09,09, E2, 18, A2,99,2571 
4919 DATA 89,99,51,C4, A2,98,08,51,C4, A2, 76,98, 85,F3, 88, 298A 


3439 DATA B6,E2,9C,F1, 76,99,9D,51,D9,37,71,99,51,6C,8E,2E3C w 4928 DATA 98,99,E2,C9, 09, 76,89,04, A6, 71,99, 09,51,84, 71, 28FB 


47 


4939 DATA 76,09,99,51,F3,F3, 76,08, 94, E2,98, A2, 89, 51,C8, 3646 " 4628 DATA 98,08,51,76,99,9B,51,71,76,09,97,B2, 78,6, A2,2B15 


4849 DATA D9,76,98,19,51,F3, A2, 89,99,F3, A2, 76,98, 17,F3,3335 
4959 DATA A2, 76,98, 13,51,3C, 79, A2, 76,98, 12,B6, 9C, B4, 79, 3385 
4969 DATA 76,98,12,51,6C,9C,F9, A2, 76, 6, 11,F2,C8,E6,9C, 436D 
4979 DATA A2,76,98,11,F2,98,F3,D1, 76,98,11,51,F4, EG, 79, SE7E 
4988 DATA A2, 76,99, 11,51,E4,F3,98, A2, 76,99,11,51,68,F3, 3748 
4999 DATA E6, 42,51, 76,98,11,F3,B2,D9,98,B7,F3, 89, 9, A2, 35F8 
4199 DATA 76,99,8D,B3, 78, 71,51,9B,3F,F3,F3, 79, 76,99, 9C, 3299 
4119 DATA 54,F3,7F,31,F3,DB,E7,37, 7B,F1,76,98,8C, 51, D9, 3AF2 
4129 DATA B3,B1,FB,F2,F1,F3,B6, 56, A2, 76,99, 8B,51, 79,B3, SATB 
4139 DATA 7B,F7,FA,71,B6,E2,9C,F1,76,99,9B,51,38,F1,F2,41F8 
4149 DATA BF,3A,D9,6C,8E, C9, 79, 76,98, 9B, 51,98, F3, 38, 3B, 3198 
4159 DATA 66,F2,68,CE,C8,D9, 76,98, 9C,E6, 39,64, 73,F3, BG, 49CD 
4168 DATA CB,32,24, A2, 76,99, 8C, 51,98, D9, F3, F3, B4, 6,66, 4523 
4179 DATA C4,59, 76,99,0C,51,F3,F7,F2,F3,38,C4,9B,D1,E2,517A 
4189 DATA A2, 76,99,9B,51,9B,7F,B2,F1,D9, 4C,9B, CS, 84, A2, 45EB 
4199 DATA 76,99,98,51,37,7F,E6, 34,E2,98,CF,62, 6C, D1, 76, 42A5 
4289 DATA 99,9B,51,37,FB,F3,C4,84,8C,CF,9F,64,59, 76,48, 397A 
4219 DATA 8B,F6,93,FB,F3,C8, 4C, 24,CD,C5,3A, C8, A2, 76, 88, 3D22 
4229 DATA 99,51,F6,FC,F3,E6,C9, CC, 4C, 4D, C8, 9B,6F,D1, 76, 4AG6D 
4238 DATA 89,87,F3,F3,F3,F6,FC,F3,64,C8,98, 4C, 4D, 62, C5, 499E 
4249 DATA 9A,D1,76,99,96,51,C9,C#, 4C, D4, F9,B3, 39, C4, 8C, 4449 
4259 DATA 4C, 48, DB, C5, CO, D9, 76,98,95,51,E2,C8,E8,98,D1, 48F5 
4269 DATA F1,C5,8C,C4,8C, 8C, CS, A2,E7, 62, A2, 76,99, 05,E6, 3DB4 
4279 DATA C9,5C,E8,99,D1,D8,E7, 26,D4,9C, 8C, 48, A2, 51,66, 3B9B 
4289 DATA A2, 76,99,84,51,B4,84,DC,E8,C4,D1,98,E2, CA, D4, 54C4 
4299 DATA 4C,8C,D1,99,51,CA, A2, 76,08,94,F2,B9,C4, DC, EG, 4838 
4388 DATA 84,48,E6, 71,9F,D4,CC, 48,D1, 99,51, CF, A2, 99,98, 3233 
4319 DATA 42,51,34,71,4C,74,D2,84,C8,E6,F3,C5, 7E,EB, 48, 4CB5 
4328 DATA D1,99,B7,DB,69,99,51, 71,E6, B4, D9, 4C, 74, D2, CB, 44C2 
4339 DATA 69,F3,46,48,9F, AC, CB, A2,98,B3,A2,96,98,51,6C,2F81 
4349 DATA 79,B9,E2,98, 74,BC,C9,59,D8,E6,C4,91,6E, CS, A2, 4EBE 
4359 DATA 51,67, A2,99,99,51,38,B4,64,A6,98,5C,E9, C9, D1, 437F 
4369 DATA 98, A6,C9,ED, 37, 48, A2, B3, DB, 99,99,09,51,D8,BS, 3691 
4379 DATA D9, A6,98,48,FC,C8,D1,F1,48,C8,FC,9B, GA, Di, CF, 54C9 
4389 DATA A2,76,98,94,B2,CC, A2, A6, CC, 48,FC,CB,E6,F1,C8, 5564 
4399 DATA D4,FC,65,33,CF,DB, 76,98,95,51,F3,98,E2,4C,C4,3A14 
4499 DATA C8,F8,E6, 71,C9,FC,EC, 39,CF,D1, A2, 76,99, 98,E2, 4247 
4419 DATA C4,84,C8,FC,F3,F3,D4,FC,84,38,CC,D1, 76, 99,99, 3FCA 
4429 DATA 51,84,48,69,C9,B3, AB, 99,6C, 84,39, 24,D1, 76,98, 33B5 
4439 DATA 99,51,84,48,C8,C8,B3,2B, C4, 8C, 84,98, C8, D1, 76,477C 
4449 DATA 99,99,51,C9,C8, 84,C8,B3, A9, C4, 48,C9,98,48,D1, 4775 
4459 DATA 51,F3, 76,98,94,51,A2,98,51,C8,C8,C8, C9, D1, A9, 4587 
4469 DATA C4,48,C8,18,C9,D1, A6, 24, A2, 99, 99,99, E2,D1,99, 2EDE 
4479 DATA 51,C8,8C,C8,C8,C8,93,84,4B,CH,4C,8C, C9, 18, CC, 3DCA 
4488 DATA A2,88,99,90,E2,D1,99,51,84,24,D1,E2,C9, 42,C9, 3EB5 
4499 DATA C9,F3,C4,64, 18,64, 4C,59,98,99,51,84, 48, A2,E2, 319B 
4589 DATA 9C,69,D1,51,C8,C9,C9,F3,99, E2, 4C,64, 48,84, 71, 3BE2 
4519 DATA 99,99,F3,84,6C,D1,E2, 4C,68, A2,98,F3,F3,F3,89, 43D2 
4529 DATA 99,51,84,48,D1,E2,71,99,51,D1,C4,64, 48, A6,CC, 4995 
4539 DATA D1, 76,98,98,E2,C8, A2,51,6C, A2, A6,C8, 18, B2, 8C, 4947 
4549 DATA 4C,98, A2, 76,69,88,E2, D1, 89,51, 18, A2,E6, 48, D9, 3A3F 
4559 DATA 51,64,64,68, A2, 76,98,98,51,A2,98,51, 4C, A2,B2,2E12 
4569 DATA 6C, 71,99, B2,39,F3,76, 49, 4C, E2, 71,99,51,98, 71,2F39 
4574 DATA 89,51,F3,76,99,9C,51,84,D9,99,98,F3, A2, 76,99, 2DA5 
4589 DATA 9F,F3,C4, A2, 76,99, 12,51,C8, 18, A2, 76,99, 12,E2,2E85 
4598 DATA 84,71,76,89,13,E2,4C, 71, 76,99, 13,E2,98, A2, 76, 351C 
4689 DATA 99,13,51,F3,76,89,19,F3, A2, 76,99,0F, A2, 76,98, 28EB 





4638 DATA 89,87, A2, 76,98, 9A,51,60, A2, 76,08,85,51, QC, 78, 2936 
4649 DATA 38, A2, 69, B3, A2, 76,89, 8A, E6, 38, A2, 76,99,95,51, 264F 
4658 DATA 34,F8,B4, A2, 98, E7, A2, 76,08, 8A,B2, 38, A2, 76,99, 2D9B 
4668 DATA 95,51,79,F9,B4, 42,09, E7, A2, 76,99, 9A, B2, Bâ, D9, 3E9E 
4678 DATA 76,09,05,51, 78, 78,B4, A2, 8, E7, A2, 76,89, OA, B2, 3168 
4688 DATA 3C, 71,76,89,85,E6, 78, F8, 38, A2, F3, F3, 7B, 76,98, 3009 
4698 DATA PA,E6, 78,71, 76,98,95,E6,F8, 78,38,F3, QD, FB, 32, 4238 
4799 DATA A2, 76,98, 89,6, 79,60, A2, 76, 09,94, 51, B4, 79,60, 2EBA 
4718 DATA F2,31, 73,66, 42, 76,08, 09,E6, 34,38, A2, 76, 09, 94, 24D3 
4728 DATA 51,38, 34, 71,9, D9, F3, DB, 76, 09, 9A, E6, 9C, BG, D9, 46C3 
4738 DATA 76,99,04,E6, 60, C, D9, E6, A2, 51,D8, 76,89, 8A,51,3415 
4749 DATA 96,84, 71, 76,09, 84,E6, 71,98, F3,F3,09,B3, F3, A2, 483B 
4758 DATA 76,99,09, 51,96, 78,71, 76,98,94,F3,D9, 6, F2, A2, 4591 
4769 DATA 51,F3, 79, 71,76, 99,04, E6, 79, B9, A2, 09,99,00,51,2594 
4778 DATA B3,F3, 79, D9, 3, 7F,98, D9, 76, 98, 8, 51,98, 78, 71, 35FD 
4788 DATA 99,99,09,51,33,E6, 79, 79,89, 37, 13, 42,08, 51, 76, 2EGE 
4798 DATA 49,99, E6,96, 79,06,08,98,51,9B,DB, CC, 39,4, D9, 3F68 
4898 DATA E7, 73,F3,E6, A2, 2,76, 09,97, 51,E6, 39,F3, A2, 49, 372C 
4819 DATA 51,9B,67,F3,CC, 64, F3, 73,E7,9B, 37, 78, 79, 76, 89, 3498 
4829 DATA 98,51, A6, 39, D9, 42,89, B3, 38, DB, F3, F3, 2,B3,F3,51B4 
4838 DATA F3,31,F2, F1, 76,98,08,51, 40, 98,38, D9, 89, B3, 37, 2ACB 
4849 DATA 73,89,B3, A2,B3,F3,F3, 76, F4, D9, 76, 09,98, 51,98, 3C64 
4859 DATA 64,39, 24, A2, E7, 37, FB, A2, 83, 98,51, 78,E5, 78, D8, 4381 
4869 DATA B3, A2, 76,49,87,51,4C,84,98,64, 59,51, 37,FB, BA, 3519 
4878 DATA 51,99, F2, 38,99, CC, 4C, F3, 73, 76,00,97,51,8C, 84, 2AF4 
4888 DATA UC, 39,59, 51,98, 7F,F3,99,51,38,64, 19, 4C,CB, A2, 322C 
4899 DATA B7, A2, 76,89,96,51, 48,84, 90,98, CB, A2, B3, 37, ET, 3BA7 
4988 DATA A2, F2,64, 8C, 4D, 39, 24,D1,B3, A2, 76,69, 06, A6, 48, 2F52 
4918 DATA 46,48, 0C, 69, A2, E7,63,F6,F3, BC, 8C, 4C, CD, 2E, 64, 4213 
4928 DATA 59, E7, A2, 76,99, 6, A6, CB, A6, CB, 90, CB,D1,F6,E9, 4DB5 
4934 DATA F9, F9, EC, 9C, 98, 4D, 6F,D1, E2,67, A2, 76,9, 86, A6, 36BA 
4948 DATA CB, A6,C8, 84,48, 1,51, FC, FC, F6, B6, C, 39, 48,67, 3E1A 
4958 DATA G6A,F3, 73, 76,09,07, A6,C8, CB, CA,84,C8,D4,F3,F6, 5399 
4969 DATA B8,E2, AC, 39, 24, CO, CF, 62, Di, DB, 76, 09,97, E2, CB, 491) 
4978 DATA Di,C9,C8, CO, FC, D1,D4, 78,E2,EC, 24, 24,91, CA, 9B, 4A93 
4989 DATA B3,F3,76, 89,97, E2,D1,D1,84, Cf, C4, F8, Di, E6,D8, 5986 
4999 DATA E2,B8, 24, 8C,C5, CA, C5,E7,59, 76,98,97,F3, EG, E2, 4858 
5899 DATA E2,84,C9,F8,84, E2,98, 71,FC, C8, C8,C5, F3, Di, 73, 589C 
5918 DATA D1,76,09,97,F3,38,D9,E2, 90, CA,E9, 84, 71,90, F1, 4892 
5928 DATA DA, 48,48, D1,51,D1,73,CF, A2, 99,09, 06, A2,00,51, 2843 
5939 DATA 59, 24, 4C, E2, 48,48, FC,EB,D9, C4,F1,D4, CB, 48, E7, 54D6 
594ÿ DATA A2,B3,B3, CA, A2, 89,09,51,D1,F3,E6,D1,98, 84, 18, 41D8 
5959 DATA 39,48,D4, C2, 18,E2,64,F6,CB,CA,F3,DB,B7,E7,C4, SAD2 
5968 DATA A2, 89,09,51,C9,98,24,D1,18,C8, CC, 4C, 8C, DC, EB, 4622 
579 DATA 84, E2,94,F6, CS, Di,0p,E7,87,E7,84, A2, 89, 80,51, 3926 
5988 DATA 84,48, C8, C9, B2, CO, 84, 84, 48, E2, FC, B4, B2, 71,D4, 4EBE 
5998 DATA C9,D1,99,51,98B, DB, CA, A2,88,08,51,0C,C9, CO, CB, 39FS 
5199 DATA E6, 76,C8,84,E2, FC, Di, 6, 71,04, C9,D1, 49, 09, B3, 43B5 
5119 DATA A2,F3,09,08,00,A6,68,C8,CB, CB, E6, 48, E2, CO, B4, 4844 
5128 DATA E2, Dé, F9, 79,71, FC, C9, A2, 89,96, 51, 73, 73,90,08, 2858 
5139 DATA 98,82,68,F3,F3,E2, Di, C8,F3,E2,84, C9, 84, F9, B8, SAFF 
5149 DATA E2, FC, CS, A2,09,F3, 99, E7, A2, 99,09, 99, B2, 59, 09, 2826 
5158 DATA 09,51,F3,C8,F3, 6,59, C8, CB, D9,98, 2, EB, C9, Di, SABE 
5168 DATA 51,CC,A2,51,76,99,94,E6,D1,09,98,99,51,C8, A2, 2E91 
5178 DATA F3,E2, C8, CP, 59, F3, FC, AC, CB, 4C,F3, 18,59, 76, 99, 3BEC 
5189 DATA 45,E6,D1,99,99,99,51, 48, A2,51,C8, CS, CA, B3, 7B, 3096 
5198 DATA FC, 18,68, 39, A6,C8, D9, 76,98, 04,51, A6,D1, 89,9, 2A71 


4619 DATA 97,51, 34,D9, 76,98,6E,51,D9, 76,98,97,E6,3C,79,2C7F m 5289 DATA 99,51,C8,D1,99,E2,C8, C9, B3,FB, C9, 84,38,64,C8, 48DB 
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5219 DATA CS, 24, A2,08,98,95,E2,C8,68, 76,68,94,E2,D1,89,2F58 
5228 DATA 51,C8,C8,D1,37,E2,C8,8C,C8, CS, E2, 95, A2, 08,98, 3A44 
5239 DATA 98,E2,CS, A2, 76,98,64,E2, 4C, A2,88,E2,C5,D1,37,3C85 
5249 DATA E2,C8,C8,9C,D1,51,99, A2, 99, 99,99, E2,59, 76,98, 295E 
5254 DATA 85,E2, 16, A2,98,51,C8,C8,B3,E2,C8,C8, D1, A2,51, 4A56 
5268 DATA C4,A2,98,88,51,C9,59, 76,99,64,51,C9,99, A2,98, 2B9B 
5279 DATA 99,E2,C9,D1,C8,C9,D1, A6, A2, 99, E2,D9, 59, 89,51, 3802 
5284 DATA 84, A2, 76,89,94,51,C9, 59,99, 99,09,51,E2,C5,C8, 3232 
5299 DATA C#,D1,64,59,99,E2, 18, A2, 98,51, 84, A2, 76, 99, 84, 269E 
5389 DATA 51,84,D9, 76,99,94,51,F3,C9,D1,B2,68C,D1,99,51,3C1F 
5319 DATA 4C,A2,88,51,59,76,98,95,51,C4,71, 76, 89,95,51,2166 
5328 DATA F3,A6,8C,C8,D1,99,51,84,D9, 99,51, A2, 76,99, 95, 2A4C 
5339 DATA 51,59, A2, 76, 95,96,E2,C8,48,C8,D1,88,51,C9,59, 37EA 
5349 DATA 76,98,98,51,F3,76,99,87,51,C9,C9,D1, A2, 99,51, 32EB 
5354 DATA C#,C4, A2, 76,98, 11,F3,F3, A2, 89,98,99,E2, 84, A2, 368B 
5369 DATA 99,89,51,A2,89,99,F3,F3, A2, 76,08,96, A7,F3,99, 3213 
5379 DATA F3,4F,5F,FB, A2, 76,98,94,51,5B,F7,F3, AF,9F, BF, 3466 
5389 DATA 5F,FB, A2,99,99,96,F2,6D,5F, 7F,9F,6F,5F,9F,9F, 1F6D 
5398 DATA FB,F3,F3,51,BB,D9,AF,FF,AF,9F,9F,2F,8F,9F,5F,2Dÿ1 
5499 DATA 73,51,E4,E6,2F,8F,9F, A7,5F, 7F,0F,A5,3B, A2,51,2F87 
5419 DATA D9,A7,27,5F,5A, A7,89F,BF,AF, 7F,9F, 73,60, À2,51,2EE6 
5429 DATA F7,5A,F1, 7A,5A,B3,37, 3B,B7,F3,99,09,99,51,7F,2B7F 
5438 DATA 5B,45,FS, 7B, 73,F3,F3, 73,99, 98,09,51,F3,B7,5F, 3845 
5449 DATA 5A,FB, A2,89,51,F3,99,99,99,51,5F,A7,0F, 7F,BB, 2D3A 
5459 DATA A2, 76,89,06,51,B5, A7,8F,BF, 37, A2, 76, 88, 86,51, 26F8 
5469 DATA 1F,A7,AF,BF,B7,A2,76,89,06,A7,FB,2F,5F,5F, 73, 358A 
5478 DATA 76,88,97,F2,FB,2F,8F,FF, 73, 76,09,97, A7, 7B,5F, 3976 
5489 DATA 5F,5F,7B, 76,99,86,51, A5, 73,9F,BF,5F, 73, 76,98, 297E 
5498 DATA 96,51,F5,7B,9F,1F, 77,A2,76,98,96,51, 1B,F3,5F,2B37 
5589 DATA 5F,37,A2,76,09,96,51,BF,F3,0F, AF,B3, A2, 76,98, 3496 
5519 DATA 86,51,7B,51,BF,BF,F3, 76,98,98,A2,51,FF, 7B, 76, 3B98 
5529 DATA 99,8A,51,1F, A2, 76,89, 8A,51,5B, A2, 76,99, 9A,51, 1FF1 
5539 DATA FB, 76,99, 9B,51, 7B, 76,99,9C, A2, 76,98, 89,F3, 99, 2355 
5548 DATA 99,51,F3,F3,76,99,46,51,5B, À2,51,F7,9F,FF,F3, 41CF 
5559 DATA 76,99,95,A7,F3,FB,F7,9F,9F,9F,FF,F3,99,99,98,2071 
5569 DATA 51,E4,9F,BF,AF,76,8F,84,5F,F3,F3, A2,F2,64,F7, 4B13 
5579 DATA 5F,FF,89,09,08,98,98,95,08,98,98,98, 90, 99,90, 925D 


DATAB - BAS 


18 * DATAS du PROG ZE 

28 ‘ Xyphoes Fantasy 

39 ? (c) SILMARILS 1991 

48 ON ERROR GOTO 189 

58 MODE 2:AD=8C988 :NL=119 

69 FOR A=1 TO 382:B=9:FOR C=1 TO 15:READ A$ 
79 POKE AD, VAL("&"+A$) :B=B+(PEEK(AD)#c) : AD=AD+1 

88 NEXT:READ E$:1F VAL("R"+ES$)C>B THEN 188 

98 NL=NL+18:NEXT: SAVE"2B",B, &C989, &11A6:CLS : END 

198 CLS:PRINT"DATA"C; "LIGNE"NL;* INCORRECT" : END 

118 DATA 8F,1F,9F,9F,9F,BB, A2,F2,D9,9D, 76,8F,84,1F,AF,3111 
128 DATA 5A,1F,73,88,E6,F3,1B,9F,FB,5A,8F,5F,7F,1F,AF,312C 
138 DATA 1B,A2,51,98,F3,AF,F1,A5,A5,F1,33,3F, 73, 7B, A2, 4155 
149 DATA 98,89,51,B7,B7,F9, 5A,B5,B3,F3, F3,B3, A2, 98, 98, 3FF8 
158 DATA 51,FB,B7,9F,AF,F5,F3,88,98,F3, A2, 69,99,51,5F, 2EF9 
168 DATA F7,8F,1F,FF,73,76,89,96,51,5F,F7,5A,5F,3B,7B,2F47 
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188 DATA AT,A5,AF,BB, A2, 76, 99,96, 51,1F, A7,5F,5F, BB, A2, 3543 
198 DATA 76,99,96,A7,BF,A7,FF,AF, BF, A2, 76, 89,86, A7,FB, 417C 
288 DATA 2F,8F,2F, BB, A2, 76, 89,06, F2,FB, 2F,5F,3B,FB, 76, 3458 
218 DATA 89,97, F2,FB, FA, FF, BB, 78, 76,89,87,A7, 73,AF,9F, 3732 
228 DATA 58, 73,76,99,86,51,5F, 78, 8F,AF, EB, A2, 76,98, 66, 2B6E 
238 DATA 51,F5,78,9F, FF, BB, 2, 76,60,86,51, 1F, 73,5F, BF, 35CB 
248 DATA BF, A2, 76,88,86,51,BF, 73, 9F,BF, BB, A2, 76,98, 66, 2039 
259 DATA 51,38, 73,9F,BB,FB, 76,98,47,51, 78, 73,FF, 7B, 78, 3817 
268 DATA 76,88,87,51,73,F3,FF, 73, 22, 76, 99,08, A2, 68, B7, 2D72 
278 DATA 42,42, 76,98, 84, B3, A2, 76,80,88,51, 76,89, 8B, 51, 1E94 
288 DATA A2,51,F3, 76,89, 89, F3,FB, 51,BF, F3, 76, 08,98, F3, 3D9D 
298 DATA 5F,A7,FF,5F, A2, 76,80,86,51,B7, A7, A7, A7,8F,FB, 3D46 
398 DATA 76,80,86, A7,F3,A7,F7,47,0F,5B, A2, 76,08,94,51, 2058 
319 DATA 5B,F7,F3,A7,78,FA,5F,FB, A2, 86,09, 89, F2, 8D,5F, 3085 
328 DATA 7F,A7,FB, 7A,8F,0F,FB,F3,F3,51,B9,D9,AF, FF, AF, 5447 
338 DATA FB,2F,9F,9F,8F,5F,73,51,E4,E6,2F,9F,8F, 5B,FF, 3258 
348 DATA A5,8F,A5,3B, A2,51,D9, A7, 27,5F, 5A,5B,AF, A5, A7, SCBE 
358 DATA 7F,9F, 73,98, A2,51,F7,5A,F8,87,5A,8F, 87, 3B, B7, 3BFD 
368 DATA F3,80,99,51,58, 7F,5A,F7,0F,5F, 73,F3,F3, 73,98, 3859 
378 DATA 98,51,5A,F3,A5,A7,F5,5F, 73,80,51,F3, 99, 69, B7, 33ED 
388 DATA 5A,BF,F3,2F,8F,FF, 73, 76,99,95,F7,F5,AF, TB, AF, 4288 
399 DATA AF,7F, 78, 76,80,85,A7,8F,FF, 78,54, 8F,BF, 7B, 76, 33CB 
a99 DATA 99,85, F2, A5, BF, 78, 5A,5F, BB, 73, 76,09,95, F2, 1F, 38F8 
418 DATA BF,B7, F5, 9F, BB, 73, 76,89,84, 51, 7A,5F,37,F7, A5, 3503 
428 DATA 7F,BF, A2, 76,80, 84,51,4F, 7F,37, 7, 5A, 7F, 98, A2, 32AF 
439 DATA 76,98,94,51,AF,FF,3B,A7, AF,BB, 78, 76,99,85,51, 2F4B 
449 DATA 5F,BF,3B, F7, 2F,BB, 73, 76,90, 85, A7, B5, BB, 3B, A7, 38E9 
459 DATA 5F,BF, A2, 76,89,95, F7, 1F,BB, 78, 1F,BF, 38, A2, 76, 35E1 
468 DATA 98,85, A7,0F, 3F, 73,5F,BB, TB, 76,98, 96,B7,FF, 37, 3246 
478 DATA F3,5F,3B, 73, 76,99,86,B7, 37, 37,F3, BB, 33, A2, 76, 3685 
488 DATA 98, 86,83,37,F3,51, 38, 78, 76,99,07,51,38, À2,51,27F4 
498 DATA 3F,A2, 76,98,88,F3, 99,51, 78, 76,80,88, 51, 73, 76, 2688 
588 DATA 98,80, A2, 76,89, 09, A2, 76, 09,08, 51, 7B,98,51,F3, 2882 
518 DATA A2, 76,80,97,51,BF, A2,87,5F, 78, 76,88,87,B7,FF, 3864 
528 DATA A2,F7,8F,BF, 42, 76,99,96,F7, 47, 7B,2F,F5,5F, A2, SDAA 
538 DATA 76,99,96,F7,F7,FB,BF,5F,5F, A2, 76, 89,86, A7, TB, 36AC 
548 DATA FB,BF,A5,5F, 78, 76, 96,06, F2,FB, B7,5B,FB,8F,FB, 4567 
558 DATA 76,99,96,A7,FB,F7,5B,AF, AF,BF, A2, 76,89, 95, F7, SEA4 
568 DATA B7,F3,FB,AF, 1F,BF, F3, 42, 76,09,04,F3,58B, F7, A7, 44B4 
579 DATA F2,FF,3F,F7,FB, A2,90,98,00,F2, 80, 5F,2F, F2, 5F, 3963 
588 DATA 37,A7,8F,FB,F3,F3,51,8B4,D9,AF, AF, A7,F5, 38, 73, 4BFE 
598 DATA 9F,9F,5F,73,51,E4,E6,2F,6F,A7,9F,BF, 73, 9F, A5, 32BF 
698 DATA 38, A2,51,D9, A7, 27, A5, 47,F5,BF, TB, 4F, 7F,9F, 73, 3F58 
619 DATA 99,87, 7B,F7,5A,F2,8F,FF, 78, 37,38, B7,F3, 69, 87, 3F39 
628 DATA FF, 78,7F,F2,1F,FF, 73,73,F3,F3, 73,00,F7,0F,BF,4414 
638 DATA B7,F2,5F, 37, 73,2, 89,51,F3,89,F7,A5,5F, 78, A7, 3D61 
648 DATA AF, BB, 73, 76,89,05, A7, 45, 7F,7B, A7, 45, BF, 73, 76, 3E42 
659 DATA 09,95, A7,5F,BB, 78, A7,AF,EF, A2, 76,89, 84,51, 7A, 31F2 
668 DATA A5,5F, 73,F7,F5, BF, 42, 76,99,84,51,FA,5F,5F, 73,3816 
679 DATA F7,9F,3F, A2, 76,08,84,51,FA,8F, 7F, 7B,F7,5F, 37, 32DB 
688 DATA A2, 76,89,84,51,FA, F5, BB, 78, 51,F5, 33, A2, 76, 68, 3888 
698 DATA 94,51,5A,5,BB, 73,51,5F, 78, 76,89,85, 51, A5,5F, 2BAF 
799 DATA BF, 73,51,5F, 78, 76,99,85,51,45,FF,3F, A2, 51, LB, 2ED8 
718 DATA 78, 76,89,95,51,5F, 37,38, 2, 51,BF, 73, 76, 99,95, 2561 
729 DATA 87,FF,18,73,98,51,BF, 42, 76,09, 95,F7, 1B,3F, 73, 2CB8 
738 DATA 99,51,BF, A2, 76,88,95,87,38, 73, 2,88, 51, 3B, A2, 2BEC 
749 DATA 76,88,85,87,F3, A2, 09, 99, 06, B3, A2, 76, 08,95, F3, 2DEB 
758 DATA 76,99,85,51, 76,99,97,F3,F3,98,80,51,F3, A2, 76, 3454 


178 DATA 76,98,96,51,F5,A7,A5,5F, 7B,7B,76,89,86,51,A5,2E94 m 769 DATA 99,95,51,7F,BF,F3,51,B7,FF, 7B, F3, 76,98,94,51,378A 


A9. 


778 DATA AF,AS,BF,B7,AF,5A,9F,BF,F3,60,99,09,B7,AF,F9, 3072 
788 DATA LF,F7,2F,7F,9F,80F,BF, A2, 09,99,B7,0F,5A,5B,2F,2552 
198 DATA 77,9F,5F,BF,7F,7B,09,08,B7,AF,A5,FB,BF, 7F,5A, 4916 
899 DATA FF,8F,BB,FF, A2,499,51,AF,0F,7B,iB,AF,F8,FF,FA, 490) 
819 DATA 9F,1B, 7B,99,51,2F,F9,B7,1F,5A,A5,5F,9F, SA, BF, 31B3 
829 DATA A2,89,88,F7,A5,B7,7F,0F,F5,0F,AF,BF, 77, 2,08, 3885 
838 DATA 99,B7,5F,F7,9F,5A,A5,FF,93F,27,BB, 7,89, 00,51, 2B92 
849 DATA BF,F7,5F,A5,8F,7B,F7,9B, TB, A2,99,98,51,F3,5B, 3387 
858 DATA AF,5A,5F,F3,51,F3, A2,08,09,89,51,5B,F3,2F,9F, 298A 
869 DATA 5F,FF,F3,76,09,85,A7,F3,FB,27,0F,AF,9F,FF,F3,4379 
878 DATA 99,99,90,51,E4,9F,BF,A7,76,8F,84,5F,F3,F3, A2,3CFE 
889 DATA F2,64,F7,5F,F7,8F,0F,1F,9F,9F,9F,BB, A2,F2,D9, 395C 
898 DATA OD,1B,8F,8F,9F,1F,AF, SA, 1F,73,49,E6,F3, 1B, 9F, 28E9 
999 DATA AF,F9,8F,5F,7F,1F,AF,1B, A2,51,98,F3,AF,F8, A5, 4BFC 
919 DATA A5,F8,33,3F, 73,78, A2,89,89,86,B7,AF,F9, 5A, A5, 3881 
929 DATA B3,F3,F3,B3, A2, 09, 89,09,51,F2,9F,A5,B5,F3, 08, 3691 
938 DATA 99,F3, A2, 76,09,94,51,F3,F3,F3, 76,88, 8A,F3, A2, 3DFÿ 
948 DATA 76,89,8A,F3,BF, 73,09,09,F3, 76, 90,96,F3,7F,BF, 36B6 
958 DATA 73,98,F3,3B, A2, 76,68,84,51,7F,2F,B1,FB,51,7F, 3584 
969 DATA BF,A2,76,99,84,B7,AF,FA,ÛF,FB,B7,AF,BF,A2,08,4151 
979 DATA 99,99,51,7F,8F,A5,F5,7B,FF,1F,5B,76,99,84,51, 2A38 
989 DATA AF,5F,8F,FB,B7,5F,F5, 73, 76,99,94,B7,5F, A5,FB, 3F12 
998 DATA B7,9F,9F,8F,7B, 76,90,84,F7,8F,5B,F7,9F,F5,5A, 32BA 
1409 DATA B5,BB, A2,98,98,98,F7,AF,B7,8F,7F,9F, A5, A5, BB, 30D4 
1919 DATA A2,98,89,98,F7,5F,F7,BF,AF, 5A, 5A,5F,3B, A2,98, 3249 
1929 DATA 09,99,B7,0F,A7,BB,5A,9F, AF,5F,73,76,00,94,51,2641 
1939 DATA AF,F7,7F,5F,5F,BF,BF, A2, 76,09,94,51,7F,B7,AF, 3998 
1949 DATA 8F,FF,5F,7B, 76,98,96,B7,7B,FF,5A,AF,BF, A2, 76,411A 
1959 DATA 68,96,F3,F3,2F,0F,5F, 7B, 76,08,06,51,5B,F3, A7, 324D 
1968 DATA 5F,0F,FF,F3, 76,98,95,A7,F3,FB,A7,8F,8F,9F,FF, 3OAF 
1970 DATA F3,99,99,99,51,E4,9F,BF,AF, 76,9F,04,5F,F3,F3, 3A33 
1989 DATA A2,F2,64,F7,5F,FF,8F,9F, 1F,8F,0F,9F, BB, A2, F2, 33D3 
1998 DATA D9,9D,76,8F,94,1F,AF, SA, 1F, 73,99,E6,F3, 1B,9F, 2B27 
1199 DATA AF,F9,9F,5F,7F,1F,AF,1B,A2,51,08,F3, AF, FD, AS, 49FC 
1119 DATA A5,F8,33,9F, 73, 7B, A2, 90,99, 99,B7,AF,F,5A, A5, 3881 
1129 DATA B3,F3,F3,B3, A2,98,08,08,51,F2,0F,A5,B5,F3, 99, 3691 
1139 DATA 99,F3,A2,76,09,04,51,F3,F3,F3, 76,00, 9A,F3, 76, 3B5C 
1149 DATA 99,0B,F3, 33, A2, 76, 08,99, F3, 3B,3F,73, 76,89, 88, 2359 
1158 DATA 51,2F,5F,3B, 73,76,09,08,51,AF,BF,BF, 73, 76,99, 2F1E 
1168 DATA 98,B7,FA,AS,BB,F3,98,51,F3, A2,76,08,84,F7,5F, 3A11 
1179 DATA 5F,37,F3,F3,B3,3B, A2, 76,99,64,F7,5A,5F,F3,3F,393C 
1189 DATA 9F,AF,BB, A2, 76,99,04, A7, AF,FB,7F,9F,FA, 1F,BF,3D7B 
1199 DATA A2,76,99,04,B7,5F,B7,9F,5A,1F,FF,3B, A2, 76,98, 2DAB 
1299 DATA 94,51,BF,F7,FA,AS,FF,3F,F3,76,08,95,F3,7B,7F, 4955 
1218 DATA F,B5,1F,73,A2,76,09,94,51,5B,F3,2F,5F,5F,3B, 2A36 
1229 DATA F3,76,98,85,A7,F3,FB,9F, A5, 3B,F3,FF,F3, 89,89, 3D14 
1239 DATA 99,51,E4,9F,BF,AF,5A,1F,2F,9F,5F,F3,F3, A2, F2, 43E4 
1249 DATA 64,F7,5F,FF,9F,9F,1F,9F,9F,9F, BB, A2,F2,D9,9D, 3B7A 
1259 DATA 76,9F,94,1F,AF,5A,1F,73,99,E6,F3,1B,9F, AF, FO, 3824 
1269 DATA 8F,5F,7F,1F,AF,1B, A2,51,08,F3,AF,FO, A5, A5, FO, 4983 
1279 DATA 33,3F,73,7B,A2,89,09,08,B7,AF,F9,5A, A5,B3,F3, 4355 
1289 DATA F3,B3, A2,89,99,90,51,F2,0F, A5,B5,F3, 50, 89, F3, 3667 
1298 DATA A2,76,99,04,51,F3,F3,F3, 76, 09,07,F3,99,09,51,2BB8 
1399 DATA F3,F3,76,99,96,51,5B,A2,51,F7,9F,FF,F3,76, 99, 39AF 
1319 DATA 95,A7,F3,FB,F7,8F,9F,9F,FF,F3,899,09,99,51,E4, 3265 
1329 DATA 9F,BF,AF,76,9F,94,5F,F3,F3,A2,F2,64,F7,5F,FF, 4EA9 
1339 DATA 6F,8F,1F,9F,9F,9F,BB, A2,F2,D9,9D,9F,9F,2F,9F, 283D 
1349 DATA 1F,AF,5A, 1F, 73,98,E6,F3,1B,8F,FB,FA,8F,5F,7F, 3898 





1369 DATA 7B,A2,99,B7,BF,B7,B7,5A,5A, A5,B3,F3,F3,B3, A2, 59C1 
1378 DATA 99,F7,A5,7B,F7,8F, A5, A5,BF, A2,99,F3, A2,51,2F,3C79 
1389 DATA 5F,A2,F7,9F,8F,5F,7F,73,08,08,08,B7,AF,F3,99,2D1B 
1399 DATA F7,FA,A5,9F,1F,3B, A2,89,09,51,F3, 09,09, F7,5A, 2BE4 
1499 DATA 5F,5F,5F,3B, 42, 76, 98,96,87,9F,5F,0F, 7F,93, A2, 27CD 
1419 DATA 76,89,06,51,FF,A5,2F,BF, 73, 76,99,07,51,7F,9F,26D1 
1429 DATA BF, 73,42, 76, 98,98,F3,7F,7B, A2, 76,98, 8A,F3, A2, 3733 
1439 DATA 76,89,98,49,C9,C9,76,89,0B, C9, 48, CD,C9, 00,08, 2AC3 
1449 DATA C9,69,76,98,95,49,64,9C,9C,C8,89,C8, C8, C8, 76, 3A4D 
1459 DATA 08,95,49,8C,CC, CC, 76,C8,94, 48, 76,89,95,C9,C4,313B 
1469 DATA 36,24,C9,C9,84,9C, 48, 68,08,98,08,49,C0, 18, A4, 2648 
1479 DATA 48,C8,C8,C8,CC, 48,C9, 89,99, 99, 49,84, D8, A4,C8,3E14 
1489 DATA C9,C9,4C,79,C8,9C,C8,98,08,48,84,9C, BC, 84,C9, 3764 
1499 DATA 84,4C,9C, 24,48,C9,98,99,C9,C9, 18, 48,C4,C8, 4C, 34E8 
1598 DATA 39,4C,B4,9C,C9,89,98,84,CB,C4, BC, 4C,24,C4, 38, 3944 
1518 DATA 6C,98,48,C9,89, 49,84, 48,84, 84,98, 6C, 4C, F8, 8C, 3E94 
1529 DATA 4C,9C,48,89,48,4C,8C,CB,8C, 34,B8, 1C, F9, 98, 8C, 2D28 
1538 DATA 9C,C8,88,49,99,46,C9, 4C,79,B@, D8,F9,98,8C, CB, 4A24 
1549 DATA C9,99,49,1C,8C,CB,C4,CC,B4, 78,78,8C, CC, 8C, CO, 41F8 
1559 DATA 9,99,58, 24,48,C4,34,F9,F4,78,2C,64,48, C9, 89, 39E8 
1569 DATA 89,C4,6C,C9, 4C,34,FD,B4,3C,6C,6C, 4B, C9, 89, 49, 3788 
1578 DATA 64,8C,48,84,39,D86, 3C, 9C,F9,38,C8, C8, 89, 49,84, 3EFC 
1589 DATA 8C,9C, 84,98, 78, 38,98,F9,38,C8,0C, C8, 48, 48, BC, 2E98 
1599 DATA 84,8C,4C,34,4C,98,F9,64,C8, 4C, 48, 49, 4C, DC, 9C, 231C 
1699 DATA 8C,4C,64,9C,9C,B4,64,8C,98,C8,48,84,C9, 18, CC, 39AC 
1619 DATA 4C,CC,4C, 79,B8,CC,84, B4, 48, 49,84, 84,58, CC, 4C, 3734 
1629 DATA 9C,18,78,38,8C,4C,6C,48,98,C8,84,58, 34, BC, B4, 2F98 
1639 DATA 98,34,64, 8C,58, 24,48, 99, C9, CG, QC, BD, 8C,84,CC, 4864 
1649 DATA 98,8C,9C,9C, BC, C9, 88, 48,84, 18,38, 8C, 84, 80, CC, 2F5C 
1659 DATA 8C,84,18,C8,C8,89,49,8C, 4C, 39, C8, B4, QC, DC, AC, 2928 
1669 DATA 84,4C,9C,89,9B,49,4C,9C, CC, GC, C8, 8C, 8C, CC, CH, 34AC 
1679 DATA 0C,84,89,99,48,18,8C,8C, 48,84, D8, 1C,69, C9, 84, 31FC 
1689 DATA 48,99,09,49,94,24,48,C8,C8, 18,B4,8C, CO, CO, C9, 4278 
1699 DATA 99,88,49,0C,E4,9C,C9,C9, 4C, 64, 48, 89, 49, 89,99, 2AD8 
1789 DATA 89,49, 48,00, 48,C8,C9,84, 48, 48, 76,08, 86, 84, 48, 26FB 
1719 DATA C9,C8,09,C0,48,C9, 76, 09,96, C9, 48, C9, 09,00, 49, 25F8 
1729 DATA C9,89,76,99,06,48,C8, 76,98, 0C,48,C8, 89, 76,88, 26DC 
1739 DATA 97,49,C9,48,C9,89,C9, C9, 76,09,94,49,C4,CC, C8, 3EGD 
1749 DATA C9,C8,C8,89,08,90,08,CB,58,8C, C8, C9, C4, BC, CH, 3E2C 
1758 DATA 99,98,09,84,D8, 48,C9,C9,98,E4, 48, 89, 09, 09,84, 324C 
1768 DATA CC, 48,48, 84, 4C, 38, C8, 88,08, 49,C9, 84, BC, BC, C4, 3508 
1779 DATA 64,4C,48,C9,99,C9,48,C9, 4C, 64, 4C, E4, 9C, 0C, CB, 3258 
1789 DATA 99,C9,48,64,98,BG,D8,E4,64,C89,88,88,84,6C, CA, 42AB 
179ÿ DATA CC,9C,78,E4, 4C, 9C, 89, 89, 49, 6C, 84,98, 78,B4, 3C, 32F8 
1889 DATA 9C,48,C9,99, CB, 8C, 48, 18,78, 3C,78,B4,C8, CO, 80, 35B4 
1819 DATA C9,8C, 48, 4C, 79,38, 79,B4,C8, 48,89, 84,00, 4C, 4C, 2A18 
1829 DATA CC, UC, 78,38,9C,C8,88,C8,CB,4C,BC,CC, 4C,F9,64,41BC 
1839 DATA 84, A4,89, 49,84, 18,60, 9C,98, 38, CC, 58,69, 89, 49, 2ED8 
1849 DATA C9,D8,64,9C,CC,64,C,9C, CB, 88,48,0C, 18,64, 84, 2D18 
1859 DATA 9C,9C,48,4C,48,99,49,C4,4C, BC, 48, BC, 4C, CB, QC, 2CC9 
1869 DATA C9,09,49,99,6C, 9C, 84,D6,38,C8,84,C8, 80, 99,84, 3199 
1879 DATA ES, 48,C9,4C,8C,C9,C9,C9,99,09,C9,6C,CS,C8, 84, 3028 
1889 DATA 84,69, 49,69, 90, 90,C8,C8,C0,98,49,C8, 76,9, 86, 285C 
189$ DATA C8, 76,98, 8A,C9, 89,76, 99,85, 49,C9,C9,49,CD,95,2D7B 
1998 DATA 99,09,C9,98,48,C8,C8,88,00,99,84, A4, C9, 84, FE, 3F3C 
1919 DATA C8,89,98,C9,8C, 8C,98, 18,48, 59, 49, C8, 84,38, 78,2E29 
1929 DATA 24,48,99, 49, A4,C4,78,F8,4C,C8, 88,48, BC, 84,79, 2FDB 
1939 DATA 3C,BS,C8,99,49,84,9C,9C,98,E4, 4C, 89, 49,C8,E4, 4998 


1359 DATA 1F,AF,1B,A2,51,51,F3, AF,F1,0F,A5,F9,33,3F,73,3C1A m 1949 DATA AC, 79,24,6C, 89,99, C8,38,8C, 98, BC, 48, 89, 89, 84, 2BD4 


50 





1959 DATA 98,8C,8C,8C,C9,99,99,C9,8C, C8, 34,C8,C8,90,98, 27AC ' 


1968 DATA CS,46, C9, 48,88,98, 00,98, 49,C8,98,C8, 76,89, 84, 292A 
1979 DATA 49,88,C9,99,09,C4,48,C9,89,99,58,C5, 48,80, 49, 2FC8 
1989 DATA CS,3C,8C, 89, 49, 48,D8,E4, 88, 48,C,CC,64, 48, 49, 32AC 
1999 DATA D8,18,A4,C8,98, 4C,9C, 8C, 89, 99, 84,99,68, BD, 99, 25BC 
2998 DATA C9,49,88,08,00,F3, A2,98,51, A4,D1,99,F3,F3,F3, 46FA 
2919 DATA A2,F2,D9,E2,A2,51,E4,59,99,51,6C,D1,99,F2, A6, 499D 
2929 DATA F3,A2,F2,D9,C#, A2,F3,9C,D1, A2,F2,F3,E2, A2, F2, 5CFD 
2938 DATA E4,C9,A2,F2,8C, 48,A2,51,F1,F3,99,51,A6,D1,98,3D13 
2949 DATA 51,80,D1,99,98,E2, A2,98,51,E4,59, 98,51, 8C, D1, 352E 
2858 DATA 99,51,F3,F3,76,90,64,F3,76,09,94,51,E4, A2,98, 2DD7 
2969 DATA 99,09,51,C8, A2, 90,98, 98,F2, 46, A2,98,89,51,E4, 2B4F 
2978 DATA 84,D1,99,89,51,F3,C9,D1,99,69,F3,E6,C8,D1,98, 3F9C 
2889 DATA 89,F2,8C,59,F3,98,08,F2,48,C8,F3, 69,99, E6, 84, 3AB4 
2998 DATA D1,F3,99,99,E6,E2,59, A2, 99, 89,51,E2,E2, 2,98, 3669 
2199 DATA 99,51, A6,D1,A2,99, 98,99, A6, E2,F3,98,69,51,E8, 33AB 
2119 DATA E6,F3,99,99,51,C8,F2,F3,99,99,51,59,F2,D1,98, 3646 
2129 DATA 99,F3,F3,C8,F3,98,98,F2,6C, 48, A6, A2, 89, E6,D1,4377 
2138 DATA D1,E2,A2,99,F3,E2,F3, D9, A2, 69, E6,F3,F2,D1,98, 4EA3 
2148 DATA 89,51,59,8C,F3,99,98,51,D1,E8,F3,98, 80,F3,F3, 4135 
2158 DATA 59,A2,99,99,F2,CC,D1,A2,99,51,68C,84,C8,F3,98,3C4E 
2169 DATA 51,76,F3,94,98,09,51,08,08,09,F2, A2, 89,69, A7, 2224 
2178 DATA A2,99,51,A5,D3,99,51, 4B,F9, 99, F2,5E,E9, A2, A7, 42E8 
2188 DATA F4,FC, A2,F6,F9,F3,A2,E3,FC,F3,A2,51,FC,F3,88,55F{ 
2199 DATA 51,D6,F9,99,89,F6, A2, 99,99, E3, A2,09,99,51,98,235C 
2299 DATA 89,99,51,99,09,99,B7,A2,08,98,F7,A2,69,51,7F,2918 
2218 DATA 73,88,51,BF,DB,89,B7,EF,9B, A2,F7,6F,CF, A2,E7, 51A2 
2229 DATA DB,F3, A2,B3,CF,F3,A2,51,CF,F3,98,51,67,DB, 98, 3DEC 
2239 DATA 98,E7,A2, 00,09, B3, A2, 99, 99,51, 76,09,97,51, 76, 2843 
2248 DATA 89,96,F3,F3, A7,F3,F3, A2, 76,689,64,51,F8,71,5B, 3B38 
2258 DATA 73,F8,71,76,09,94,51,B9,59,5B, 73,64,59, 76,98, 2896 
2269 DATA 84,F2,98,A7,F3,B3, A6, 80, A2, 69, 98,09,F2,F3, A7, 4136 
2279 DATA F3,E7,F3, A6,A2,99,89,51,F1,CC,F7,F3,E7,A6,D1,5564 
2288 DATA 59,99,99,51,F1,8C,A7,BF,67,E2,D1,D1, 58,80, F2, 418B 
2298 DATA 71,8C,F3,F3,F3,E2,D1, C9, A2,09,F2,F1,F3,A7,5F,535E 
2399 DATA 3B,F3,F3,C9, A2,98,F2,A7,5B,58B,1F,73,73,5F, E2, 3CBB 
2319 DATA A2,88,F3,5B,FB,5B,3B, 73, 73,5B, 7B, A2, 98, A7,F3,3CFE 
2329 DATA FB,FF,B3,B3,DB,FB,B3,A2,51,FB,F3,7B,BF,F3,B3, 5452 
2338 DATA DB, 7B,F3,DB,51,7B,F3, 73,3B,F3,E7,DB, 7B,F3, DB, S6EA 
2349 DATA 99,B3,F3,73,6F,B3,E7,DB,73,E7,A2,88,F3, DB, DB, 52BE 
2359 DATA 73,33,DB,DB, 7B,DB, A2, 89,F2,E7, DB, 73,67,DB,DB,512C 
2369 DATA 67,E2,A2,88,F2,F1,F3,B3,CF,CF,F3,F3,C9, A2,89,527C 
2379 DATA F2,71,E4,F3,F3,F3,E2,59,C9, A2,99,F2,F1,A4,A7,531D 
2369 DATA 5F,3B,E2,D1,C, A2,98,51,F1,6C,A7,F3,B3, A6, DA, 4FBF 
2398 DATA D1,89,99,51,F1,8C,F7,F3,E7,E2,D1,D1,99, 99,99, 3925 
2499 DATA F2,F3, A7,F3,E7,F3,E2, A2,98,99,98,E6, 8C, D1, 7B, 4293 
2419 DATA 73,84,C8, À2,09, 00,99, 51,48,59,FB, DB, 48, D1, 76, 39DA 
2428 DATA 89,94,51,C9,C9,B7,E2,C8,D1, 76,08,95,76,F3,85,37F7 
2439 DATA A2,90,08,E6, A2,E6, A2, 1C, 98, 1C, 98, A6, A2, A6, A2, 3662 
2449 DATA 76,99,95,E6, A2, 98,98, 1C, 98,98, 09, AG, A2, 99, A6, 222B 
2458 DATA A2,69,A6, A2,4C, 98,08, 4C, 98, D6, 88, 99, D8, 88,F6, 3794 
2469 DATA A2,99,E6, A2, A6, A2, 98, A6, A2, 76,88,96,51,59, 89, 25A7 
2479 DATA 09,90,04, 80,09, 99,99, 44,E4, 09, 09,09,51,D9, 99, 1C5B 
2489 DATA 99,99,51,59,00,00,98,51,98,98,80,51, 89, 99, 89, SBAB 
2499 DATA A6,A2,99,89, A6, 2,89, 99, A6, A2, 09, 69, A6, 2,99, 2668 
2599 DATA 51,4C,59,99,51,4C,59, 99, A6, DB, 8C, A2, AG, DB, 8C, 4914 
2519 DATA A2,51,4C,59,99,51,4C, 59, 99, 89, A6, A2, 99,90, A6, 2202 
2529 DATA 42,09, 05, A6, A2, 09,98, A6, A2, 90,00,51, 89, 89,99, 1512 
2539 DATA 51,76,99,95,51, 76,89,87, A6, A2, 76,99, 96, AG, A2, 29FE 
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2549 DATA 76,99,95,51,4C,59,76,98,95, A6, DB, 8C, A2, 76,89, 2DC4 
2558 DATA 94,51,4C,59,76, 89,96, A6, A2, 76, 99,96, A6, A2, 76, 2D69 
2568 DATA 99,86,51,76,08,96,51,F3,76,08,95,E7,67, A2, 89, 2A12 
2579 DATA 98,90,51,9F,3B, DB, 99, 99,99,E7, 7F,67,67, 2,09, 2BÎE 
2584 DATA 99,B3,AF,67,9B,A2,98,51,9B,5F,CF,9B, DB, 89,51, 379A 
2598 DATA 37,1F,CF,CF,73,99,51,77,1B,CF,CF, 73,09,E7, 27, 3489 
2699 DATA 1B,CF,CF,67,A2,B3, 77,4F,CF,CF,9B, A2, B3,37,EF, 4A8F 
2619 DATA CF,CF,9B, A2,B3, 33,6F,CF,CF, 9B, A2,B3,33,67,CF, 4691 
2629 DATA 9B,9B,A2,B3,CF,67,CF,33,33, A2,E7,CF,CF,9B, 37, 462F 
2638 DATA 67,A2,51,67,CF,9B,77,73,89,51,67,CF,39,2F,73,2FF1 
2649 DATA 89,51,CF,CF, 33, BF, DB, 99,98, B3,CF, 33, LB, A2, 89, 2E43 
2659 DATA 99,E7,CF,9B,67, A2,89, 99,51,9B, 33, DB, 76,98, 94, 280C 
2669 DATA E7,67, A2, 76,99,04,51,F3, 76,98,06,F3, A2, 76,09, 2DD4 
2678 DATA #4,51,84,D1,76,99,94,E2,CC, 48, A2,99,99,51,C4, 2FCC 
2689 DATA A4,84,D1,99,99,51,58,9E,C8,59,08,98,E2, SD, F9, 2C67 
2699 DATA C8,48,A2,99,A6, 8D,C8, C9, 84, A2, 99, A6, A5, 48, C9, 3F8B 
2769 DATA 84,A2,51,84,9F,48,C8,84,D1,51,8C, A5, C9, CO, C9, 4269 
2719 DATA 59,51,8C,D8,C9,C8,C9,59,51,8C, 4C, C9, CS, CB, 59, 3DD3 
2729 DATA 51,9C,9C,C9, CD, 48,59,51,48,84,C9,84, 8C, 59, 51,2E4D 
2739 DATA C8,C9,C9,8C,BC, D1,98, A6, C9, C5, 9, A4, A2, 90, AG, 39EA 
2749 DATA C9,84, 4C, DE, A2,09,E2,C8,84,58,C8, A2,88,51, 48, 3326 
2759 DATA 84,8D,59,99,99,51,C8,C9,9C,D1,98,09,99,E2,9C, 2475 
2768 DATA 46, A2, 09,98,99,51,684,D1,76,98,05,F3, A2, 76,89, 2CB5 
2778 DATA 95,51,F3,76,99,06,51, A6,98,F3, 76,99,05, A6, CC, 3614 
2789 DATA D6,E4, A2, 76,08,94,E6, 39,F8, DD, A2, 99, 09,09, 51,2B#7 
21799 DATA 4C,39,E4,9F, 7B, 99,09, 99,51,98,F9, A5,9F,FB, 99, 2F4D 
2899 DATA 99,99, A6,D8,F4,8D,5F,FF, A2, 09,08,E6, 70,64,5F, 3914 
2819 DATA 5F,AF,A2,99,51, 4C,B9,9F,0F,FF, AF,7B,99,51,98,3164 
2829 DATA 75,FF,FF,AF,5F, 7B,98,51,98,8D,BF,97,AF,5F, 73, 37A6 
2839 DATA 99,51,64,5F,2B,FF,7F,5F, 7B,99, A6,64, 1F,03, 1F, 243F 
284$ DATA 3F,5F,BF, A2, A6,25,BF,47,EF, 17,FF, BA, A2, E6, 8D, 4B5A 
2859 DATA AB,53,7B,83,FF, 3A, A2, E6, BD, AB,53,F3,93,FF,64,435ÿ 
2869 DATA A2,E6,0F, AB, 53,F3,93,BF,64, A2,F7,9F,1F,47,E7, 3ACC 
2879 DATA 17,1A,24,A2,B7,89F,1F,47,E7,17,5A,6C, 2,51, 8D, 329B 
2889 DATA 5F,2B,8B, 7F, 79,D9,98,51,8D,9F,BF,17,AF,79,D9, 3BAE 
2899 DATA 99,51,8D,8F,5F,AF,9F, 79,09,99,51,64,9F,0F,5F,2355 
2999 DATA 14,F9,59, 99,99, B2,0F,9F,5F, 4E,B9, A2, 90, 90, B2, 28DB 
2919 DATA 25,5F,5F,EE, A4, 2,89, 89,51,39,0F,FF, 79,F 1,99, 30E8 
2929 DATA 99,09,51,98, 39, BA, D8, 59, 76,99, 94,E6,98, 39, CC, 36B5 
2939 DATA A2, 76,09,04,A6,98,64, 8C, A2, 76,99, 04,51,E6,8C, 32EB 
2949 DATA F3,76,99,96,51,F3,76,99,08,F3, A2, 76,60, 86,F3, 314D 
2959 DATA FC,F9,A2,76,99,94,51,FC,E9,FC, F9, 76,99, 04,51, 3816 
2969 DATA FC,C3,E9,F9, 76,98,94,F6,E9,F8,D2,FC, A2, 89, 89, 422C 
2979 DATA 99,F6,03,C3,E1,D6, A2, 99, 99,51,E9,E1,F9,D2,E1, 51AC 
2989 DATA F9,09,09,51,E9,F8,9F,AF,C3,F9,08,99,F6, D2, A5, 4485 
2998 DATA @F,5F,F9,D6,A2,99,F6,D2,FF,FF,FF,5A,C3, A2,99, 4C46 
3899 DATA E3,F5,5F,2B,5F,5A,F4,A2,08,F2,A5,BF,57,BF, AF, 46E6 
3919 DATA F9,A2,51,F9,0F,2B,97,3F,2F,EB,F9,51,FA,5F,2B, 381A 
3929 DATA DF,8B,7F,FA,D3,51,87,9F,93,B7,A3,57,AF,D3,51, 3D9A 
3939 DATA D2,5F,43,F3,A3,97,9F,F1,51,F6,5F,93,F3, A3,57, 3BCB 
3849 DATA 5F,D3,51,F8,9F,28B,DB, 8B,2F,FA,D3,51,E9, 5A, 2B, 3E08 
3959 DATA DB,8B,2F,E1,F9,99,F6, A5,BF, 47, 17, AF, FA, A2, 99, SEFD 
3969 DATA F6,F9,5F,2B, 7F,9F,E1,A2,98,F6,D2, A5,FF,8F,F, 48DE 
3974 DATA Ei,A2,98,F6,C3,E1, A5, AF, D2, D6, A2, 99,51, E9, D2, 4CEA 
3989 DATA F9, AG,E1,D3,99,09,51,FC,C3,E1,F8,D6, FO, 49, 8, 42F7 
3999 DATA 99,F6,D2,D2,C3, FC, A2, 89,99, 89,F6, E9, E9, D6, DG, 4F68 
3199 DATA A2,09,09,99,51,FC,C3,FC,F9,76,98,94,51,FC,FC, 438A 
3119 DATA FC,F9,76,99,85,F3,FC, F9, A2, 76,99, 06,F3, A2,99, 3898 
3129 DATA 69,09,05,09,00,98,08,00,08, 08,08, 00,00, 69,09, 9000 
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18 " DATAS du PROG 3 

28 ' Xyphoes Fantasy 

38 ? (c) SILMARILS 1991 

48 ON ERROR GOTO 189 

59 MODE 2:AD=&C988 :NL-118 

69 FOR A=1 TO 417:B=9:FOR C=1 TO 15:READ A$ 

78 POKE AD, VAL("&"+A$) :B=B+(PEEK(AD)#c) :AD=AD+1 

88 NEXT:READ E$:1F VAL("&"+E$))B THEN 198 

99 NL=NL+19:NEXT:SAVE"3",B, &C499, 41863 :CLS : END 

199 CLS:PRINT"DATA"C; "LIGNE"NL;" INCORRECT" : END 

119 DATA 21,23, 69,46, 48,E5,CD,38,BC,E1, 23, 7E, E5, CD, 9E, 3F38 
128 DATA BC, E1, AF,23, 46, 48,E5,F5,CD, 32, BC, F1,E1,3C,FE, 5839 
139 DATA 19,28,F1,18,12,09,08,90,90,96, 09,60, 09, 90, 99, D3DD 
148 DATA 59, 89, 90, 09, 09,09, 09,09, 21,B8, 69, 11, 99,C9,3A, 1B2B 
158 DATA CF,FF,3C,32,D8,FF,AF,32,88,68,32,54,69, 7E, FE, 3DF9 
169 DATA AE, 28, 8C, 12, CD, 84,69, 23,8E, 99, FE, 19,29,F9,C9,3596 
179 DATA 23,7E, 32,69, 69, 32, 78,69,23,AF,B6, 28, 8C, 4E, 3E, 26F2 
188 DATA 89, 12,CD, 84, 69, 9D, 29, F9, 18,DF, 23, 4E, 23, 46,3E, 2765 
198 DATA 99,12,CD,84,68,9B,78,B1,28,F5, 18, CE, EB, F5, DS, 4ABF 
299 DATA 3E, 89, 3C,FE, 59, 29, 29, AF,11,B1,97, 19,38, 12,11, 1AF9 
218 DATA 59,C8, 19,32, 88,69, 3A, 54,68, 3C,32, 54,69, D1,F1,363C 
229 DATA EB,C9,32,88,69,D1,F1,EB, C9, 32, 88,69, 23,D1,F1, 4899 
238 DATA EB,C9,CF,FF,99,98,F3, A2, ÀE, 99, 12,51,F3, 77, 73, 38E1 
249 DATA A2,51,F3, A2, AE, 89, BE, A7, 33, BF, 3B, DB, E7,CF,DB, 4995 
258 DATA AË,F3,95, AE, 98,99,F3, 1B,BF,33,3B,33, AE, CF,87,2F41 
268 DATA A2,AE,89,84,E7,CF,CF,37,B3,7F,5F, 73,98,51,DB, 38C9 
278 DATA ÀE,98,05,51,F3,51,CF,33,CF,6F,9F, 2F,8F,7B,89,2C8A 
288 DATA B7, A2, AE, 89,84,F3, B3,BB,F3,67,37,67,7B,37,7F,38FC 
298 DATA 5F,6F,F3,98B, A2, 98,99, 98,51,1B,77,3F,33,3F,9F,24FE 
388 DATA 38, 7B,37,BB,5F,3F,3F, 73,AE,09,04,51,A7,77,3B,29F8 
319 DATA 9F,98,51,A5, 1A,4E,F9,98,68, 79,F2, A5, A2, AE, 99, 3DF3 
32 DATA 99,51,85,8D,F1,98, F9, 79,99, F2, 2D, A2, AE, 99, SA, 3879 
338 DATA F2,F2,F3,EC,D9,F9,68,94,5B, AE, 98, 8A,51,E9,5B, 3AAS 
349 DATA 38,B6,71,3C,F1,25, A2, AE, 99, 99,F9,51,F3,C8,C8,4448 
359 DATA A2, AE, 99,85,B6,A2,98,B2,F3,D9,F1,CC,D9, E2, 99, 53BD 
369 DATA 34,39, D1, AE, 89, 85, B6, A2, 51,B8, E6,F3,E6,64,E2, 4D9A 
379 DATA 99,30, 3C, 3C, 68, A2, AE, 98, 94, B6, A2, 88, F3, SA, D9, 3972 
388 DATA BB, 74,82, AE, 3C, 94, 38, A2, AE, 99,04, B2, A2, 88,98,2526 
398 DATA F2,71,F6,D9,94, 3C,3C, 3C, 98, 89,F3,51,F3, AE, 99, 3492 
498 DATA 98,51,F3,AE, 99, QD, E2, D1, AE, 99, 06,F3, AE, 99,95,2E24 
419 DATA 51,D4,D1, AE, 99,96,E6, A2, AE, 68,94,51,EC, A2, AE, 3BC2 
429 DATA 98,86,F2,71,A2, 89, 99,08,E2, DC, A2, AE, 98,FD,51, 3A9D 
439 DATA BF,3F,DB,3F,37,3F,67,33,CF,33,3F, 38, DB, F3, A2, 3C65 
449 DATA AE, 89,96,51,7F,3F,37,3F,37,3F,6F,3F,67,3F,7F,25AE 
458 DATA 1F,BF, 3B, DB, A2, AE, 89,85, F7,3F,BB,B3, 3B, 3F, 3B, 3298 
468 DATA 3B,6F,3B,3F,AF,8F,3F,3F,3B, DB, A2, AE, 98,94, 7F,2BA4 
479 DATA 77,BB,F7,3F,3F,3B,3B,67,DB,9B,EF,BF,FF, 3B, DB, 4B3C 
488 DATA AE, 89,85,F7,3F,6F,B7, 7B,3F,3B,E7,B7,FB,3B,DB, 451B 
498 DATA F3, A2, AE, 99,05,B7,BF,3B,37,67,7F,3B,DB,CF,6F, 3AD5 
599 DATA F3, A2, AE, 89,86,51,BF, 7F,73,77,BF,37,BF,67,F3, 4982 
519 DATA 33,42, AE,98,87,15,BB,FF,73,FF,7F,B3,7F,3B, 99, 36BE 
529 DATA 51,8F,F1,64,B2,D9, 34,F1,39, A2, AE, 99, 8A,51,F8, 38D4 
538 DATA F3,D9, F3,F3,B6, 71,F3,AE,89,8C,F3,89,E2,C9,D1, 48B5 
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549 DATA 98, D1, AE, 89, 8E, 51, C9, C4, E2, 78, F3, AE, 98, 8B, 3C, 3561 
558 DATA B4,D1, AE, 99, 64,2, A2, 98,99, B2,F1,B8, D9, 34, AE, 3F4C 
569 DATA 3C,84,B4, 71, AE, 99, 84, E2, 42,51, E2, DS, BB, D9, D9, 4CBD 
579 DATA 3C,3C, 78,30, 78,54, 79,08,80,98,51,71,89,51,D1, 242B 
589 DATA 14, A5,F6, 9, 34, B4, DS, B4, 20, 9F, EG, A2, 08,98, 51, 3058 
598 DATA D1,99,49,9F, A5,5E, 39, F9, 34, 30,94, FD, 78, 5A, B4, 3BAA 
689 DATA 71,80,E6, 14, A2, 89, 99,09, F6, C8, A2, AE, 08, 96,51, 2B5C 
619 DATA 71,58, 69,99,08,E6, 71,AE,89,97,51, DC, F3, A2, A2, 3BD4 
629 DATA 99,E6,71,AE, 89, 87,51,EC, EB,F3, 7B,51,98, 71, AE, 4293 
639 DATA 99,97,51,64,87,A7,FB,51,B6, 69, A2, AE, 49,86, 51,31DC 
649 DATA B2,87,5F, AE, 99, F9, 38, 3F, 78, 9F, 37, 7F,5F,67,E7, 3642 
659 DATA 37,38, DB, AE, 98, 84,B7, 33,38, B7,FF,3F,6F, 9F,6F, 335F 
669 DATA 9F,3F,9F,5F,9F, 73,F3, 87,67, A2, 99,09, 09, B3, 73,2F3A 
679 DATA 33,83, BF, BF, 73,3F,67, 87, BF, E7, 37, 3F,6F, A2, 51, 3868 
689 DATA B7,DB, 49,80, 99,B3, A2, F3, 51, 7F, 67,83, 3B, DB, FF, 452F 
699 DATA FF,DB, CF, 33,38, A2, 69,51, 78,98, DB,9F, A2, AE, 09, 3457 
798 DATA 87,51,3B,37, 73, 2F,BF,EF, 77,3F, 73,DF, DB, AE, 98, 3CED 
719 DATA 87,51, 33,B3, 73, 73, A7, 7F,E7, 77,E7, 37, 73, AE, 89, 3A29 
728 DATA 87,51,73,51, A2, A2,51,B7,FF,F3, 7F,37,67, A2, AE, 44F2 
739 DATA 99,97, A2,AE,69,94,51,F3,F3,7F,F3,CF, 2, 69, 89, 3873 
748 DATA 89,E2,D1,F3, 82, 36, A2, AE, 09, DE, E2, A2,51,94,68, SA5A 
758 DATA A2,4E, 89,9E,F3,98, E2, 98,1, AE, 89, 19, F3, 99, 69, 379F 
768 DATA A2, AE, 89, BE, B2, A2, 89, F2, 0F,0F, 58, 98, B6,98, 3C, 31D4 
778 DATA F2,78,B4,5A, 3C,94,F3,F3,68, A2, 98, F2, 8F, 25, DC, 3D48 
788 DATA E6,B4, 82, 3C, A7, 54, 36, B9, 66, E2, 34, 38, Di, 98, 8, 2DB4 
798 DATA E2,4E, 5A,E6, 71, 78,E2, 30, A7, 2D, 36, 30, 71,F3, 99, 3B87 
898 DATA Di, A2,89,98,51,F1,F1,F6,F3,0F, 79, 3C, Di, 5B, E2, 4599 
819 DATA 3C,D1,99,F3, A2,88, 88, A2, 51,98, 74, A2, AE, 89, 6, 2C71 
828 DATA 51,F3,87,78,88,51,96, DC, 42, AE, 89,96, E2, D9, 51, 3C13 
839 DATA 42,08,51,B8,64, A2, AE, 99,85,51,D4, DO, 89, 99, 99, 2596 
848 DATA 51,C4,64, A2, AE, 99, 84,51, E2,D4, D9, AE, 9, 94, E6, SAFE 
859 DATA 39,42, 96,09, 69,F3,E2, Dé, 98, 74, A2, 80, 09, 09, E6, 31FC 
868 DATA 39, A2, AE, 09, F2, 51,09, 99,09, 1F, DB, 37,6F, F7, BF, 3547 
879 DATA FF,EF,E7,9F, 7F,A2,09,51,33,A2, AE, 99,85, 51, 73, 2BE2 
888 DATA 37,3F,73,9F,2F,1F,FB,F3,CF,FF, 73, 2,08, E7, 73, 4449 
895 DATA AE,98,85,51,B3,6F,CF, B7, 2F,9F,F3,F3, CF, E7, 77, 49AB 
989 DATA BB, DB, 42,51, 78, AE, 99,95, E7,E7, 3B,F3,F3,9F, F3, 4686 
919 DATA AE,98,8F,E7,F3,5B,67,F3, AE, 08, 8E, E7, A2, F3, 9F, 4622 
929 DATA DB, AE, 89, 8E,51,DB, 49, E7,67, A2, AE, 08, 9D,51,DB, 3387 
939 DATA 90,51, 7F, A2, AE, 49,97,51,86,F8,D1,AE, 89, 19,51, 314E 
949 DATA B4,E8, A2, AE, 89, 19,51,F3,F3,4E, 96, 23, F2, 85, A2, 3F4A 
958 DATA F3,51, 82, 79,94,D1,E2, E2, 30, A2, AE, 89, 86, A7, 54, 3937 
969 DATA A2, 89,89,F3,F3,94, 71,51, D1, 38, A2, AE, 08,96, F2, 391D 
979 DATA F1,98,80,08,51,D1,82,68,51,D1,34,F3, AE, 99, 06, 315D 
988 DATA 51,A2,89,99,09,51,D1,49,38, A2, F3,94,68, A2, AE, 3CCD 
999 DATA 99,6A,51,D4,FC, C4, EC, 64, F9, 89, 89,80, F6, 98, D1,413D 
1998 DATA 99,98, E2,EC, CC, B8,FC, E6,D9, 98,08, 60, E2, CC, 68, 4999 
1919 DATA A2,51,DC, CC, EC, BB, D9, Di, 9, 99,99, 99,51, C4, CC, 3ED5 
1829 DATA D1,E2, CP, DC, B2, 98, F9, Di, F9, AE, 68, 84, E2, EC, CC, 5989 
1938 DATA EB,D1,C8,D4,38,F3,D1, A2, AE, 86, 04,51, E2, FC, Di, 4932 
1949 DATA D1,E8,D1,4E, 98, F8,E7, DB,9B, 3F, 38, DB, 51,67, A2, 4288 
1959 DATA AE, 89,84, E7,DB, 3F, A2, 99, F3, 99,09, 09,51,CF,E7, 3498 
1969 DATA 9B,BF,67, A2, B3, A2, AE, 98, 04, E7,DB,9F, DB, AE, 89, 498D 
1979 DATA 96,F3,DB,F3,9B, 3B, A2, B7, DB, AE, 08, 4,51, DB, A7, 3F67 
1988 DATA DB, AE, 99,97,F3,CF,F3,87,73,51,73, AE, 99, 84,51, 918E 
1998 DATA AE, 98,89, E7,DB, 89,51, BF, A2, AE, 98, 6D, ET, CF, A2, 3E88 
1199 DATA 51,1F, 42, AE, 98, 0D,F3,F3, A2, 89, F3, AE, 68, 16,51,31F6 
1119 DATA AE, 98,85, F3, AE, 90,13, 51,EC, A2, AE, 99, 12, F3, 74, 3616 
1129 DATA A2,4E,88,11,51,94,EC,F9,AE, #8, 04,51, F3, AE, 99, 35BE 





1138 DATA 95,51,D1,51, 79, A2,E2,E2,38, A2, AE, 90,9B,F3,A2,3EB5 M 1659 DATA A2,51,D4,38,D1,89,51,D1,D1,DC, CC, CS,B8,C8,B2,514F 


1148 DATA 94,D1,51,F3,B2,D1, AE, 98, 9B,E2, A2, A7, 79, f9,F2,3F7B 
1158 DATA B6, 71, AE, 89,8B, 51,A2,51,A2,51,C9,B6,D1, AE, 98, 3A7A 
1169 DATA 8C,D9, 95, A2,AE,98,96,51,F3,F3,D1,C4,D1, A2, AE, 4C3D 
1179 DATA 99,8A,51,D1,F6,71,AE, 99, 9C, E2, E2, DO, AE, 99, 9C, 372D 
1189 DATA E2,F3,DC, A2, AË,99,9B,51,D1,E6,D1, AE, B,F4,CF, 4918 
1199 DATA F3,A2,AE,96,98,E7,DB,51, 7B,99,E7, A2, AE, 09,94,3142 
1299 DATA E7,A2,AE,99,99,51,CF,A2,F7, A2,B3, A2, AE, 89, 94, 385F 
1219 DATA 51,AE,99,8B,E7,DB,B7,A2,51,AE,99,11,51,CF,AE, 39A! 
1228 DATA 89,0C,E7, A2, AE, 99,9F,51,37, 73,AE,08,8F,51,73,2581 
1239 DATA 7B,AE,88,9F,51,7B, 7B, AE, 99, 8D,51,B2,68,F3, A2, 37BC 
1248 DATA AE, 99, OA, E2, 69, A2, 98,98,98,E2,68,F3, AE, 99, B, 2C2B 
1259 DATA 51,99,38,D1,89,99,51,D9,D1,AE,99,9C,51,94,B4, 338BA 
1269 DATA 69,F3,F3,B6, 69, A2, AË,98,95,51,51,51,AE,99,94,2615 
1279 DATA B2,3C,99,99,89,51,D1,38, A2, AE, 99,8F,E2,D1,5A,33E7 
1289 DATA A2,4E,98,9F,E2,D1,F3,AE,98,9B,51,F3, A2, AE, BY, 3BAA 
1299 DATA 94,51,A2,AE,99,88,F3,E2,FC, D1, A2, AE, 99, OA, 51, 3898 
1389 DATA F3,51,F3, AE, 9, 18,F3, AE, 98, 96,F3, A2, AE, 89, 07,2F1F 
1319 DATA E6, A2, AE, 86,84,51,D4, A2, AE, 99,07,F2,71,A2,99,3166 
1329 DATA 99,99,F6,DC, A2, AE, 98,97,E6, 1A, A2, AË, 89, F2,F3, 4179 
1339 DATA A2,AE,98,13,F3, AE, 09, 9F,F3,F3,F3, AE, 99, 9D,51, 35AC 
1349 DATA F3,9B, 3F,3B,F3,AE,98,9B,51,E7,37, 3B, DB,E7,3B, 3933 
1359 DATA F3,AE,99,05,51,A2,E7, A2, AE, 99, 19, B3, A2, AE, 99, 3415 
1369 DATA 19,B3, A2, AE, 99, 88,F3,F3, AE, 09,06,B7, A2, AE, 9, 3533 
1378 DATA 96,51,F3,CF,CF, A2, AE, 89,05, B7, A2, 99, A5, 38, C9, 3859 
1389 DATA 99,38, D1, AE, 98,95,51,F6,E6,F6,F3,98, 09, 89, B6, 36FD 
1399 DATA 3C,#F,1E,3C,3C,D1, A2, AE, 99, 85,F6, B2,EC, 98,F6, 4766 
1499 DATA A2,99,51,94,3C, A5, B4, 3C, 68, A2, AE, 90, 96, E6,98, 36B3 
1419 DATA 64,EC,EC, 2,99, 51,34, 38, A5, 38, D1, F3, AE, 99, 96, 3226 
1429 DATA 51,B8,EC, 74,B2,D9,98,51,D9, AE, 88,96,51,F3,D4, 3DF5 
1439 DATA CC,64,DC,D1,F3, A2,99,51,B9, F3, AE, 9,95,E2,EC, 4418 
1449 DATA 64,98,39,64,CC,C8,D1, A2,51,8D, 71,AE, 99,84,51,314C 
1459 DATA D4,CC, DC, D1,F3,F3,CC, D4, DC, D1, A2, B2, A7, 2,99, 4F74 
1469 DATA 99,09, E2,B8, 74,D1,A2,88,F6, 74,EC, DC, C9,D1,E6,5568 
1479 DATA F9,F3,51,99,89,F6,51,C4,D9, AE, 99,98,51,71,5B, 3954 
1489 DATA 99,99,51,EC, 71,AE,98,98,51,DC,F3, A2, A2,51,B6, 4916 
1499 DATA 71,AE,08,96,51,EC,E6,F3, 7B,51,98, 71, AE, 99,98, 3399 
1599 DATA 51,64,B7,A7,FB,51,98,D9, AE, 98,98, 51, B2,B7,5F, 3476 
1519 DATA A2,AE,08,F6,E7,77,3F,F3,A2,51,E7,3B, A2, AE, 99, 3DC7 
1529 DATA 96,51,9B,2F,BF,DB,98,51,F3,F7,73, AE, 89, 88, E7, 3BDF 
1539 DATA 9F,9F,5F, 73,88,E7,DB,51,9B, A2, AE, 09, 97,B3,9F, 384C 
1549 DATA AF,BF,FB,99,B3,67,A2,E7, A2, AE, 09, 86,51, 9B, AE, 3A3C 
1559 DATA 98,94,51,E7,9B,67,CF, DB, AE, 99, 95,87, A2,4E,99,3738 
1569 DATA 94,51,E7,CF,CF,3B,9F,6F, A2, AE, 98,94, B7, A2, 99, 32AA 
1579 DATA Ô8,F3,A2,E7,CF,33,CF, 3F,37,3B, A2, AE, 99,04, B3, 3256 
1589 DATA A2,51,F3, 77, 73,33,67,3B,6F,9F,3F,BF,DB, AE, 99, 34BC 
1598 DATA 94,83, A2, A7,33,BF,3B, 33,6F,6F,3B,3F,99,E2,3C, 2C34 
1689 DATA 686, 76,38, A2, AE, 99,98, B2, 71, D9, 71, 71,88, 899,E2,318E 
1619 DATA 3C,68,38,3C,D1,AE,99,897,51,F9,B8,B2,5B, 71, A2, 3C23 
1629 DATA 89,B2,3C, 79, 38, B9,D1, AE, 98,97,51,BB,DC, A7,F1, 4329 
1638 DATA DC,F9,51,94,3C,F1,69,68,69, A2, AE, 99,97, B2,F3,3C45 
1649 DATA 96,C6,A2,99,F3,F6,64,EC,EC,D4,C8,F6, DC, D1,B7,5E5C 
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1669 DATA D9, 7B,5F,A2,51,EC, 74, A2, 98,F3,F3,B2,69, DC, F6, 5966 
1679 DATA 98,D4,F3,71,2F,FB,99,51,FC,D1,99,99,F6,EC, 38, 3D6E 
1689 DATA CB8,E8,E2,64,C4,F3,F3,3F, A2, 08,51,E8, A2, 89,89, 3538 
1699 DATA E6,B2,CC,EB,C9,51,98, D9, AE, 99,98,F3,F3,B7, 7B, 484C 
1789 DATA 89,51,CC,71,AE,99,97,51,C4, A2,F3, A2,89,51,CC, 3A8C 
1719 DATA 71,AE,99,07,E2,EC,F3, F9, 89,99,51,B8, 71, AE, 99, 3544 
1729 DATA 86,F3,C$,EC, 74,D9,98,98,51,EC,D9, AE, 89,94,51,31B9 
1739 DATA F3,C8,C9,39,CC, A2, AE, 89,F2,DF, AF,BF,BB,F3,BF, 5548 
1749 DATA 3B,DB,51, A2, AE, 98,96,E7,37,9F,FF,3B,7F,FF, 3F, 3E28 
1758 DATA 3F,67,A2,AE,89,86,51,CF,3F,33,3F,3B,7F,37,67, 274AA 
1769 DATA F3,F7, A2, AE, 99,95,51,F3,CF,3F,67,BF,67,9F, 37, 3479 
1778 DATA DB,69,F7,FB, AE, 98,85,F3,9B,67, 7F,BB,FF,CF,3B, 4639 
1789 DATA 9B,E7, A2,51,3F,BF, 73, AË,98,94,E7, A2,F3, 1B, BF, 3E8C 
1798 DATA 33,6F,3B,6F,7F,3F,7F,5F,7B,09,99,00,51, 73,99, 1C9E 
1899 DATA 51,BF,3F,DB, 7B,3F,33,DF,BF,2F,9F,EF, A2, 99, 89, 2ED6 
1819 DATA 51,DB,99,51,7F,3F,37, 7B,9F,9F,OF,FF,7F,5F,BF, 4295 
1829 DATA 73,99, 99,B3, A2,99,F7,3F,BB,B3,3F,CF,9F,F7, 7F, 4622 
1839 DATA BF,5F,3F,9F,F3,F3,6F, A2,D9,F1,CC, D9, F3, 34, 3C, 4DEE 
1849 DATA F1,C9,38, 38, A2, AE, 98,96,51,BB,E6,F3,F6,64,F3, 4A19 
1859 DATA 98,3C,F89,F,E2,68, 78, A2, AE, 99,97,F3,5A,D9,B8, 43D1 
1869 DATA 74,B2,34,3C, 78, 78,E2, 71,F2,D1,AE, 08, 88,F2, 71, 3EAB 
1879 DATA F6,D9,99, 3C,38,F9,F1, D1,E2,B6, 71, AE, 9, 95,F3, 43B3 
1889 DATA D4,B6, 42,99,F3,99,98,51,D1, 99,09, 69,F3,F3, D4, 38D7 
1899 DATA C8,F3,99,F3,C4,F9, AE, 89,94, 51, A2, AE, 99, 95,F3, 35CD 
1999 DATA F3,99,99,09,E2,F9, AE, 98, 19,51,D9, AE, 89, 19,51, 2AC9 
1918 DATA EC, A2,09,89,99,51,C4,C8, A2, 99, 09, 69, E2,FC,E8, 3C3E 
1929 DATA E6,98, F9, AE, 99, 94,E6, 74, A2, 69,98,51,D4, CC, CB, 3CDF 
1939 DATA 74,F9,A2, AE,98,94,F6, CC, A2,89,99,F6,EC, DC, C8, 492C 
1949 DATA 64, A2, AE, 99,95,E2,98,F9, A2,51,C4,D4, 71, 74, 74,432 
1958 DATA A2,4E,99,95,51,CC, DC, D1,F6, DC, E2,F8, FC, 71, AE, 57FB 
1969 DATA 99,F5,7B,99,90,99,51,F3,73,37,67,7F,FF,7F,F3, 3FDE 
1979 DATA 9B,CF,E7,DB,89,F3,99, 89,F3,B3, BB,E7,3F, 3B, FF, 45D9 
1988 DATA BF,5B,CF,F3,F3,E7,DB, 98,98, 99,51,1B,77,3F,37, 2949 
1998 DATA 3F,BB,FF,2F,F3,CF,DB,89,51,DB,99,09,99,51,A7, 2EA2 
2999 DATA 77,3B,33,BF,7F,FF,58,98,F3, A2,08, 00, A2, AE, 99, 3911 
2919 DATA 94,F7,3F,6F,E7,BF,99,7F,77,BB,F7,BF,E7,0F, A7, 4EA4 
2829 DATA 5F,3B,BB,6F,E7,37,3B,DB, 99, 99,87, 33, 3B,B7, 7F, 31B7 
2839 DATA E7,37,A7,2F,3B,3F,73,F3,9B, DB, A2, 09, 09, B3, 73, 36E2 
2849 DATA 33,8B3,9F,7B, 3F,DB,5B,E7,3F, DB, 98, F3, A2, 89, 09, 3227 
2959 DATA 99,B3,A2,F3,51,B3,7B,9F,DB,E7,E7,3F, A2, AE, 98, 448C 
2869 DATA 96,51,99,99,98,F3,F3,9F, 08, 09,98,B2, F1, BB, DO, 3053 
2979 DATA 34,3C,68,B4,5B,E2,C9, B2, F1, AE, 99,96,51,E2, DB, 42CD 


| 2988 DATA BS, D9, D9, 38, 78, 79,3C, 79,F3,C8,E2, 79, AE, 99, 96, 3994 
| 2898 DATA 51,D1,14,A5,F6, D9,38,F9,E8, F2,5B,51,E2,F3,71,542D 


2199 DATA AE, 89,96, 49,0F, A5,5E, 38, BC, 99,F4,3C,D1,5B, 99, 32FE 


| 2119 DATA E2,F3,D8, A2, AE, 96, 8D, F3, AE, 89, 96,51,F3, A2, AE, 3CAA 


2129 DATA 99,9A,51,E2,FC,D1, AE, 98, SA, E2,EC, 38, D9, AE, 99, 3D3E 
2138 DATA 99,51,C4,98,64, 69, A2, AE, 99,88,51,BB, DC, CB,EC, 4354 
2148 DATA 42,69,51,B8,98, 38,CC,E8,F6,D4,E6, A2, AE, 89,97, 4198 
2158 DATA F6,CC,64,E8,E2,B2,C9,F3, AE, 98,98,51,D4, DC, F3, 4C13 
2168 DATA E2,B8, C8, A2, AE, 98,99,F3,F3,51,C8,B2,F9, AE, 99, 44E5 
2179 DATA 9C,E2,E2,E6, A2, AE, 99,F7,DF,BF,5B, AE, 99, 99,51, 379F 
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Wu, 
ville, 


"lit, 


ABONNEZ-VOUS ! 





Vous désirez recevoir CPC :. st 
Infos directement chez vous | 
et être certain de l'avoir à dis- 
position. 


11 numéros 


253 F 


+ 88 F de port 





Comment avoir CPC Infos ::: 
chez votre marchand de jour- ï:: 
naux ? . 

Simple. S'il ne le reçoit pas, 
demandez-lui d'intervenir * ;i 
auprès des NMPP afin qu'il #* 
dispose du service. Pour ce : ‘ 
faire, indiquez-lui le titre CPC 
Infos, le prix 26 F et la codifi- 
cation des NMPP : M2604. ÿ 
Cette codif est inscrite dans :r° 
le code barre sur la couvertu- _ 
re. 








0 U ! je désire m'abonner à CPC infos et recevoir directement ATTENTION ! 
3 Chez moi 11 numéros au prix de 253 F + 88 F de port. SEUL CE BULLETIN 
D'ABONNEMENT 
Nom : Prénom: EST VALABLE 
Adresse : 
> Me" TT 
Code postal? 2 2 Ne, NANTES 





Date : Signature VOTRE 
Dan CARTE 
CORMARUTE BANCAIRE 


règle 341 Fpar OQ chèque Q mandat 
ele ÿ Date d'expiration 


e Envoi par avion, nous consulter. 


Envoyez votre bulletin accompagné du règlement à : Editions SORACOM - Service abonnement - BP 88 - 35170 BRUZ 
54 





e Les abonnements ne sont pas rétroactifs 








APPRENDRE L'ELECTRONIQUE 
PAR LA PRATIQUE 
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CIRCUIT IMPRIME 









LE MULTIMETRE 


ae. 
SÈ 
p”. — 
LA RESISTANCE Ga 


MEGA 30 FF A PC 30FF 
+ port 4 FF Nouvelle série + port 4 FF 
réf : SRCPINO1 FeDX°eF 35FF réf : SRCPINO3 
+ port 4FF 
réf : SRCPINO2 


ATTENTION, pour des raisons 
techniques d'impression, 
les couleurs des pin’s sont 
légèrement différentes. 


La série des 5 pin's 
140 FF + port 7 FF (NZ 
FANZINES 30 FF réf : SRC5PIN CPC 30 FF 


+ port 4FF + port 4 FF 
réf : SRCPINO4 réf : SRCPINOS5 








FAT E 
Media Box Disquettes 5"1/4 
182x178x348 mm … ER 
Réf. 310.501.1 


pour 70 disquettes, livré 
avec séparations et index 








Media Box 
, Compact Disc 
D Media Box 148x135x348 mm 
HE Disquettes Réf; 310.502.6 
QD 3'-3"1/2 125 F + port 
0 y pu CES simples 





pour 150 disquettes 
Port + 25 F par article 


Voir bon de commande page 7 





